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ABSTRACT 


MODE. THE PROGRAM VERIFIES EACH TRACK WRITTEN 
AS WELL AS VERIFYING THE FORMAT OPERATI 


REQUIREMENTS 


EQUIPMENT 
 —— 
VICE 
RH11 OR RH70 WITH Ts 8 RPO4, RPOS, RPO6 DISK DRIVES 


PRE! IMINARY PROGRAMS 


RP04/5/6 sane ta CONTROLLER TEST 
T 1 (MAINDEC-11-DZRJG) 
PART 2 (MAINDEC=11-D2RIND 


RP04/5/6 FUNCTIONAL CONTROLLER TEST 
PART 1 (MAINDEC-11-DZRJI) 
PART 2 (MAINDEC=11=DZRJJ) 


PROGRAMMABLE DRIVES (DUAL PORT ENABLED) 


THIS REV_ INCORPORATES A SAFEGUARD TO PREVENT INADVERTENT 

CORRUPTION OF DISK PACKS IN yar DRIVES. 

THIS IS A POTENTIAL HAZARD IN RUNNING THIS PROGRAM IN 

MULTIPROCESSOR SYSTEM. FOR THE STANDARD STARTING ADDRESS OF 200 

THE PROGRAM ome BEEN MODIFIED TO PREVENT AE Tg Fy DRIVES 

FOUND TO BE PROGRAMMABLE. THIS MODIFICATION APPLIES 

ONLY TO THE FIELD cord gong (XXDP oy STANDALONE) 

WHERE LOCATION 42 DOES NOT EQUAL LOCATION 46. FOR THE 

MANUFACTURING ENVIRONMENT (WHERE LOCATION 42 EQUALS LOCATION 46) PROGRAMMABLE 

athe. WILL NOT BE INHIBITED. IF THE OPERATOR DESIRES TO RUN THIS PROGRAM USING 
ROGRAMMABLE DRIVES IN A FIELD ENVIRONMENT USE STARTING ADDRESS 220, WHERE 220 | 

THE SAME AS 200 WITHOUT INHIBITING PROGRAMMABLE DRIVES. 

SEE SECTION 4.1 FOR A SUMMARY OF ALL STARTING ADDRESSES. 


110 
111 
“112 
113 
114 
115 
116 
117 
118 
119 
120 
121 


LOADING PROCEDURES 


— ~~) od os 
QEARAGSS 
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138 
139 THE PROGRAM MAY BE LOADED FROM PAPER TAPE USING THE ABSOLUTE 
140 LOADER OR IT MAY BE LOADED FROM THE APPROPRIATE 'XXDP’ MEDIA 
141 USING THE ASSOCIATED LOADER. THE PROGRAM MAY NOT BE INCLUDED 
142 IN AN 'XXDP” CHAIN 
143 
144 
145 
146 
147 4. STARTING PROCEDURES 
Oe ee Se el. 2c: nego 
149 
130 4.1 STARTING ADDRESSES 
152 THE PROGRAM IS STARTED FROM LOCATION 200(8) IF THE ADDRESS OF THE 
153 RH11 OR RH70 WILL NOT BE CHANGED 
154 PROGRAMMABLE DRIVES ARE INHIBITED, STANDALONE AND XXDP CHAIN-SEE SECTION 2.3 
156 THE PROGRAM IS STARTED FROM LOCATION 204(8) IF THE ADDRESS OF 
157 THE _RH11 OR RH70 IS TO BE CHANGED FROM THE PRELOADED VALUE. 
138 (SEE SECTION 4.3) PROGRAMMABLE DRIVES ARE NOT INHIBITED. 
160 STARTING ADDRESS 220 IS THE SAME AS 200 BUT WITH NO INHIBITIONS. 
16 4.2 OPERATION ACTION 
194 1. LOAD THE PROGRAM INTO MEMORY (SEE SECTION 3). 
166 2. LOAD THE STARTING ADDRESS ~ 200(8) OR 204(8) OR 220(8). 
168 3. SET THE SWITCHES AS REQUIRED AND PRESS ‘START’. 
170 IF THIS IS THE PROGRAM'S FIRST START, THE STATUS OF THE DRIVES 
171 ON THE SELECTED MASSBUS SUBSYSTEM WILL BE TYPED OUT. THIS TYPEOUT 
17 MAY BE INHIBITED ON SUBSEQUENT STARTS BY SETTING SW<02>. 
17% 4. THE PROGRAM WILL THEN TYPE THE FOLLOWING MESSAGE: 
176 "PROGRAM MODE (C OR F):' 
178 ENTER THE APPROPRIATE CODE: 'C' FOR "CHECK" OPERATION OR 'F' 
179 FOR "FORMAT & VERIFY’. IF A ‘CARRIAGE RETURN’ IS ENTERED IN 
180 RESPONSE TO THE REQUEST, THE PROGRAM WILL ASSUME "FORMAT & 
182 
183 5. THE PROGRAM WILL THEN ASK FOR THE FORMATTING MODE: 


"OPERATE IN 22 SECTOR (16 BIT) MODE (Y OR N)" 
7H A APPROPRIATE CHARACTER: ‘Y' FOR 16 BIT MODE OR ‘N* FOR 
18 BIT MODE. IF A ‘CARRIAGE RETURN’ IS ENTERED IN RESPONSE TO 
THIS, REQUEST, THE ‘PROGRAM WILL ASSUME 16 BIT MODE. 
6. THE PROGRAM WILL THEN ASK FOR A DRIVE: 


‘DRIVE: ° 


—_ 8 ot oo) 2) 1 
AV LSS BIEA 
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ENTER THE ADDRESS OF THE DRIVE TO BE FORMATTED. A ‘PERIOD’ OR 
"CARRIAGE RETURN’ ENTRY WILL SELECT DRIVE 0. IF THE DRIVE SELECTED 
IS_NOT AVAILABLE, THE PROGRAM WILL TYPE AN ERROR MESSAGE AND 
RETURN TO THE DRIVE ADDRESS REQUEST. 


AFTER THE OPERATOR HAS SELECTED A DRIVE, THE PROGRAM WILL ASK 
FOR ADDRESS LIMITS FOR THE SELECTED DRIVE: 


"ENTER ADDRESS LIMITS: * 


THE PREVIOUSLY SELECTED OR DEFAULT VALUES FOR BEGINNING ye 
AND TRACK AND FOR ENDING CYLI 


NUMBERS. 
THE ADDRESS SPECIFIED BY THE BEGINNING CYLINDER AND TRACK MUST 
BE LESS THAN THE ADDRESS SPECIFIED BY THE ENDING CYLINDER AND 
TRACK ADDRESS. 


THE PROGRAM WILL THEN ASK FOR THE DATA PATTERN: 


"SELECT DATA PATTERN 
(0) ZERO'S 
(1) ONES 

(2) WORST CASE:' 


ENTER THE CODE FOR THE REQUIRED PATTERN. ‘CARRIAGE RETURN’ OR 
a ol al ENTRIES WILL CAUSE THE PROGRAM TO USE THE ‘WORST CASE’ 


THE "WORST CASE’ PATTERN IS THE FOLLOWING OCTAL SEQUENCE REPEATED 
THROUGH THE DATA AREA OF THE SECTOR: 


165555 
133333 


THE PROGRAM WILL THEN TYPE: 
"STARTING FORMAT ON DRIVE N° 
OR 
"STARTING CHECK ON DRIVE N° 
Be SEEM TSE MRM EM Bas RAIN 
TYPE THE FOLLOWING MESSAGE : 
"PRESENT ADDRESS IS: CXXX TXX' 
IF A ‘CONTROL C* IS TYPED WHILE THE PROGRAM IS TYPING THE CURRENT 


ADDRESS, THE PROGRAM WILL ABORT THE FORMAT (OR CHECK) OPERATION 
AND RETURN TO THE "DRIVE® REQUEST. 
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4.3 


4.4 


10. IF THE OPERATOR DOES NOT SELECT A DIFFERENT DRIVE WHEN THE FORMAT 
OR CHECK OPERATION HAS COMPLETED, THE PROGRAM WILL NOT ALTER THE 
7 nat LIMITS SPECIFIED AT THE START OF THE PREVIOUS OPERATION. 


T OR CHECK OPERATION IS TERMINATED BY A ‘CONTROL C‘ OR 


IF A DIFFERENT DRIVE IS SELECTED, THE PROGRAM WILL RESET THE 
ADDRESS LIMITS TO THE VALUES APPROPRIATE FOR THE DRIVE TYPE. 


11. TO CHANGE EITHER THE ADDRESSING MODE OR THE OPERATION MODE, THE 
PROGRAM MUST BE STARTED FROM LOCATION 200(8) OR 204(8) AGAIN. 


RH11 = RH70 UNIBUS ADDRESS 


THE PROGRAM ASSUMES THAT THE RH11 OR RH70 ADDRESSES START AT 
176700 AND THAT THE VECTOR ADDRESS IS 254. THESE ADDRESSES MAY 

BE CHANGED WHEN THE PROGRAM IS STARTED FROM LOCATION 204(8). 

IF THE RH11 = RH70 IS NOT AT THE DEFAULT ADDRESS, THE PROGRAM MUST 
BE STARTED FROM 504(8) INITIALLY AS THE PROGRAM GOES THROUGH THE 
ADDRESS CHANGE ROUTINE AT INITIAL START ONLY. ENTER THE RH11 RH70 
ADDRESS IN RESPONSE TO THE REQUEST FROM THE PROGRAM. 


OTHER UNIBUS ADDRESSES 


LOC TAG CONTENTS FUNCTION 

1144 $TKS 177560 TTY KEYBOARD STATUS REGISTER 
1146 $TKB 177562 TTY KEYBOARD BUFFER REGISTER 
1150 $TPS 177564 TTY PRINTER STATUS REGISTER 

1152 $TPB 177566 TTY PRINTER BUFFER REGISTER 

1176 $LKCSR 172540 KW11-P CONTROL REGISTER 

1200 $LKCSB 172542 KW11-P COUNTER REGISTER 

1202 $SLPVEC 104 KW11-P VECTOR ADDRESS 

1206 $LKS =: 1177546 KW11-L CONTROL REGISTER 

1210 $LKV 100 sADDRESS OF KW11-L VECTOR 


SW<15>=1...HALT ON ERROR 

SW<13>=1... INHIBIT ERROR TYPEOUTS 

SW<10>=1...BELL ON ERROR 

SwW<09>=1...LOOP ON ERROR 

SW<07>=1...PRINT SOFT ERROR REPORTS AS THEY QCCUR 
SW<02>=1...DON'T DISPLAY SYSTEM STATUS AFTER INITIAL START 
SW<01>=1...LOOP ON THE CURRENT TRACK 


SW<00>=1...LOOP THE PROGRAM ON THE SELECTED DRIVE 


IF THE PROGRAM IS BEING RUN ON a" SWITCHLESS PROCESSOR (I.E. AN 11/34) 
THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER Ms 
NOT PRESENT AND WILL USE A 'SOFTWARE* SWITCH REGISTER. THE 

* SOF TWARE ° SWITCH REGISTER IS LOCATED AT LOCATION 176 (8). THE 
SETTINGS GF THE ‘SOFTWARE’ SWITCHES ARE CONTROLLED THROUGH A KEYBOARD 
ROUTINE WHICH JS CALLED BY TYPING A ‘CONTROL G'. THE PROGRAM WILL 


SEQ 0006 


H 
CZRJBDO, RPO4/5/6 FMTR MACY11 30A(1052) 24-MAY-79 14:10 PAGE 9 
CZRJBD.P11 28-MAR~79 11:23 


RECOGNIZE THE ‘CONTROL G' AT ANY TIME EXCEPT WHEN THE PROGRAM 

IS AT A HIGHER PRIORITY PROCESSING AN RP04/5/6 INTERRUPT. THE 

"SOF TWARE* SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE 
TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE: 


"SWR = NNNNNN NEW =' 


EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER 
IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED., ‘RUBOUT' AND 
"CONTROL U* FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS 

DURING SWITCH ENTRY. 


ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE ‘SOFTWARE’ SWITCH 
REGISTER MAY BE USED. IF THE PROGRAM FINDS ALL 16 SWITCHES IN THE 
"UP" POSITION, ALL SWITCH REGISTER REFERENCES WILL BE TO THE 
SSOP TWARE * REGISTER AND THE PROCEDURES DESCRIBED ABOVE MUST 


ERROR MESSAGES 


*RH11_ INTERRUPT OCCURRED (RPAS=0) - AN INTERRUPT OCCURRED, BUT 
NOTHING ON THE MASSBUS IS INDICATING AN ATTENTION. 


"UNEXPECTED ATTENTION OCCURRED’ = THE INDICATED DRIVE INTERRUPTED, 


BUT NO INTERRUPT WAS EXPECTED FROM THE INDICATED DRIVE. 


"MASSBUS PARITY ERROR (MCPE=1)' - A CONTROL BUS PARITY ERROR 
WAS DETECTED BY THE RH11 WHEN THE INDICATED REGISTER WAS READ. 


*MASSBUS PARITY ERROR (PAR=1)" = A CONTROL BUS aap ERROR 
OCCURRED WHEN THE INDICATED REGISTER WAS WRITTEN 


"ADDRESS PLUG CHANGE BIT SET’ = THE PROGRAM FOUND THE ‘OPE’ 
BIT SET FOR THE INDICATED DRIVE. 


*RH11 DIDN'T RESPOND TO ADDRESSING’ - THE PROGRAM ACCESSED THE 
RH11 AT THE INDICATED ADDRESS AND RECEIVED NO RESPONSE. 


"DRIVE OFFLINE’ = THE INDICATED DRIVE HAS GONE OFFLINE 


"PERSISTENT DRIVE UNSAFE ERROR* - THE INDICATED DRIVE HAS BECOME 
UNSAFE AND THE CONDITION CANNOT BE CLEARED BY ISSUING ‘DRIVE 
CLEAR’ INSTRUCTIONS. 


"UNCORRECTABLE MASSBUS PARITY ERROR’ - THE PROGRAM ATTEMPTED 
TO PERFORM AN OPERATION AND DETECTED 3 SUCESSIVE MASSBUS PARITY 
ERRORS OR THE PROGRAM ATTEMPTED TO CLEAR A ‘PAR ERROR IN THE 
DRIVE AND & PARITY ERROR OCCURRED. 


"SOFTWARE TIMECUT' - THE OPERATION FAILED TO COMPLETE WITHIN 
1 SECOND. 
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7.2 


Pe 


11. "DRIVE UNSAFE ERROR* = A NON=PERSISTENT UNSAFE ERROR OCCURRED 
DURING THE OPERATION. 


12. ‘CONTROLLER/DRIVE ERROR DURING WRITE’ - THE INDICATED NON=DATA 
ERROR WAS DETECTED DURING A FORMAT OPERATION. 


13. ‘CONTROLLER/DRIVE ERROR DURING WRITE CHECK’ = A NON-DATA ERROR 
OCCURRED DURING THE WRITE CHECK. 


14. ‘DATA ERROR DURING WRITE CHECK’ = A DATA RELATED ERROR OCCURRED 
i Aten! chee OPERATION. A DATA ERROR IS CONSIDERED 


15. ‘RETRIES NOT SUCESSFUL - SECTOR NOT ACCEPTABLE’ - THE INDICATED 
SECTOR FAILED DURING RETRY FOLLOWING A DATA ERROR. 


16. ‘*CONTROLLER/DRIVE ERROR VERIFYING HEADERS’ = AN ERROR OCCURRED DURING 
THE VERIFICATION PASS AFTER FORMATTING. 


17. ‘*HCE’ ERROR VERIFYING HEADERS’ - A HEADER ERROR OCCURRED DURING 
THE VERIFICATION PASS AFTER FORMATTING. 


18. ‘CYLINDER FIELD IN HEADER IS NOT CORRECT’ = THE CYLINDER FIELD 
FROM A HEADER READ DURING THE VERIFICATION PASS IS NOT CORRECT. 


19. "WRITE CHECK ERROR’ - THE RH11 REPORTED A WRITE CHECK ERROR AND 
NO DRIVE ERRORS WERE SET. 


20. ‘HARDWARE ERROR DURING WRITE CHECK’ = AN ERROR THAT WAS NEITHER 
A DATA ERROR, WRITE CHECK ERROR, NOR CONTROLLER ERROR OCCURRED 
DURING A WRITE CHECK. THESE ERRORS COULD BE — OF THE 
FOLLOWING: ‘OPI’, ‘DTE*, ‘HCRC', ‘HCE’, OR ‘FER’. 


MISCELLANEOUS 


FORMAT TIME 


IT TAKES APPROXIMATELY 8 MINUTES TO FORMAT AN ENTIRE RP04/5 PACK 
AND APPROXIMATELY 16 MINUTES TO FORMAT AN RPO6 PACK. THE ‘CHECK’ 
ete AN ENTIRE PACK IS 4 MINUTES FOR RPO4/5'S AND 8 MINUTES 


HALTING THE PROGRAM 


THE OPERATOR SHOULD NOT HALT == PROGRAM DURING A FORMAT OPERATION. 

HALTING THE PROGRAM MAY LEAVE A seCrOn INCORRECTLY FORMATTED. TO 

TERMINATE THE FORMAT, TYPE A "CONTROL C‘ AND WHILE THE PROGRAM IS 

oe THE ADDRESS, TYPE ANOTHER ‘CONTROL C'; THIS SEQUENCE RETURNS 
THE PROGRAM TO THE DRIVE ADDRESS ENTRY ROUTINE. 


SURFACE VERIFICATION 


SEQ 0008 
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THE FORMATTER PROGRAM IS NOT INTENDED TO BE USED TO PERFORM DISK 
PACK ek ae tng me THE PROGRAM REPORTS A SECTOR AS BEING ‘NOT 
ACCEPTABLE’, THIS MAY IN FACT INDICATE A BAD SURFACE; HOWEVER, 
SECTORS WHICH "PASSED' MAY OR MAY NOT BE GOOD. 


PROGRAM DESCRIPTION 


FORMAT OPERATION 


THE PROGRAM FORMATS THE PACK ONE TRACK AT A TIME BETWEEN THE LIMITS 
SPECIFIED BY THE DRIVE. 


THE FORMAT OPERATION CONSISTS x* A_WRITE HEADER AND DATA COMMAND FOR 
THE ENTIRE TRACK FOLLOWED BY A WR 
WILL RETRY THE 


E, 

IF A DATA RELATED ee IS Pe 
DURING THE WRITE CHECK (A DATA ERROR IS DEFINED AS ONE 
THE FOLLOWING ERRORS: "DCK', *DTE* 
OR ‘FER*), THE SECTOR IN ERROR WILC BE REWRITTEN.” THE PROGRAM WILL 
CHECK THE SECTOR TWICE; IF A DATA ERROR IS DETECTED IN THE SECTOR 
DURING EITHER OF THE WRITE CHECKS, THE PROGRAM WILL DECLARE 
THE SECTOR AS BEING ‘UNACCEPTABLE’. FOLLOWING THIS SEQUENCE , 
THE REMAINDER OF THE TRACK IS CHECKED. IF DATA ERRORS ARE ENCOUNTERED 
IN ANY OF THE REMAINING SECTORS, EACH SECTOR WILL BE HANDLED 
DESCRIBED ABOVE. 


IF A NON-DATA ark te ERROR OCCURS DURING THE WRITE CHECK, THE 
PROGRAM WILL RETRY THE COMMAND FOR THE ENTIRE TRACK BEFORE PROCEEDING 
TO THE NEXT TRACK. 


IT SHOULD BE NOTED THAT THE FORMATTER PROGRAM FORMATS “a ONLY 


AND IS NOT DIRECTLY VERIFYING THE SURFACE OF THE PACK. 
af ARE ENCOUNTERED EA 


GRAM CALLS *UNACCEPTABLE' INDICATE BAD AREAS OF THE PACK; 
UNFORTUNATELY, SECTORS WHICH ‘PASS' CANNOT BE ASSUMED TO BE GOOD. 


DURING THE FORMAT OPERATION, THE PROGRAM FILLS THE DATA FIELD 
WITH THE PATTERN SELECTED BY THE OPERATOR. THE KEYWORDS IN THE 
HEADER ARE ALWAYS SET TO ZERO. 

CHECK OPERATION 

THE CHECK OPERATION IS IDENTICAL TO THE WRITE CHECK “ad OF 
THE FORMAT OPERATION OPERATION DESCRIBED IN SECTION 8.1 EXCEPT 
THAT THE PROGRAM WILL NOT RE-WRITE ERROR SECTORS. 

POSITIONER VERIFICATION 


AFTER THE PROGRAM COMPLETES THE FORMAT OPERATION, THE 
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Pan facta IS RETURNED TO THE STARTING CYLINDER AND THE HEADER 
FROM SECTOR 0 ON THE STARTING TRACK IS READ. THE CYLINDER ADDRESS 

FIELD FROM THE HEADER IS COMPARED TO THE REQUESTED CYLINDER; IF 

THE CYLINDER ADDRESSES DO NOT COMPARE, AN ERROR MESSAGE IS TYPED. 
THE PROGRAM CHECKS THE CYLINDER ADDRESS FIELD FROM THE HEADER 

OF SECTOR 0 ON THE BEGINNING TRACK OF EACH CYLINDER FORMATTED. 

THIS CHECK IS PERFORMED TO CONFIRM THAT THE DISK'S PCSITIONER 

ADVANCED PROPERLY DURING THE FORMAT OPERATION. 


PROGRAM LISTING 


a 
-TITLE CZRJBDO, RP04/5/6 FMTR 
:*COPYRIGHT (C) 1976,1978 
2 *DIGITAL EQUIPMENT CORP. 
saMAy NARD, MASS. 01754 


! #PROGRAM BY C. HESS 


eTHIS PROGRAM WAS ASSEMBLED USING THE ter! MAINDEC SYSMAC 
;*PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 


-SBTTL OPERATIONAL SWITCH SETTINGS 
SWITCH 


HALT ON ERROR 
INHIBIT ERROR TYPEOUTS 
eo ON ERROR 


OOP ON ERROR 

DON'T DISPLAY SYSTEM STATUS AFTER INITIAL START 
LOOP ON THE CURRENT TRACK 

LOOP THE PROGRAM ON THE SELECTED DRIVE 


* 
* 
* 
* 
* 
** 
* 
* 
* 
* 


-SBTTL TRAP CATCHER 


=0 
;*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘’ -+2,HALT"’ 
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
eLOC ON S CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: WORD 22SOFTWARE DISPLAY REGISTER 
SWREG:  .WORD 2 SOFTWARE SWITCH REGISTER 


-SBTTL ACT11 HOOKS 


CII III IOI IIIUIIIIUUIOUIII I anti kitns 
Hooks REQUIRED BY ACT11 
$SV a SAVE PC 


SENDAD 3:1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 


AAIVIMIVIVIV 
8 cel ed aah a ad oad eh 
WOOONAUIES WP 
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530 000052 020000 -WORD 20000 35a) ser LOC. pee TO 20000 
531 000200 -=$SVPC 7< RESTORE P 


-SBTTL STARTING ADDRESS = 200 
=200 


000200 -= , 
000137 002132 JMP BEGIN1 te Ce ADDRESS (INHIBIT PROGRAMMABLE DRIVES 


. STARTING ADDRESS TO CHANGE THE RH11 ADDRESS = 204 
000137 002114 JMP BEGIN 3CHANGE THE RH11 ADDRESS (NO INHIBITIONS) 
000220 -=220 
000137 002100 JMP BEGINS :SAME AS 200 WITH NO INHIBITIONS 

-SBTTL BASIC DEFINITIONS 

z*INITIAL_ ADDRESS OF THE STACK POINTER *** 1100 *«« 

TACK= 1100 


-EQUIV EMT,ERROR :sBASIC DEFINITION OF ERROR CALL 
-EQUIV I0T,SCOPE :sBASIC DEFINITION OF SCOPE CALL 


; *MISCELLANEOUS DEF INITIONS 
T= 11 :CODE FOR HORIZONTAL TAB 

7:CODE FOR LINE FEED 

+3 CODE FOR CARRIAGE RETURN 
000200 CODE FOR CARRIAGE RETURN-LINE FEED 
177776 PROCESSOR STATUS WORD 


177774 Spe Hee LIMIT REGISTER 
177772 PROGRAM _ INTERRUPT REQUEST REGISTER 
177570 ; ; HARDWARE SWITCH REGISTER 
177570 DDISP= 177570 HARDWARE DISPLAY REGISTER 
; *GENERAL PURPOSE REGISTER DEF INITIONS 
RO= %0 ERAL REGISTER 
3 GENERAL REGISTER 


32:PROGRAM COUNTER 
:*PRIORITY LEVEL DEF INITONS 
PRO= 0 


: EPRIORITY LEVEL 
3*""SWITCH REGISTER'' SWITCH DEFINITIONS 
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Jopoee 


EQUIV 
:*DATA BIT DEFINITIONS (BITOO TO BIT15) 
BIT15= 100000 


“EQUIV BITO0.BITO 
:*BASIC *'CPU'' TRAP VECTOR ADDRESSES 


SEQ 0012 








N 
CZRJBDO, RPO4/S/6 FMTR MACY11 30A(1052) 24-MAY-79 14:10 PAGE 15 
CZRJBD.P11 28-MAR-79 11:23 BASIC DEFINITIONS SEQ 0013 


TIME OUT AND OTHER ERRORS 
:ZRESERVED AND ILLEGAL INSTRUCTIONS 
[i TRACE TRAP 
7 :BREAKPOINT TRAP (BPT) 

53 : INPUT /QUTPUT TRAP (IOT) **SCOPE** 
: EEMULATOR TRAP (EMT) **ERROR«* 
:"TRAP'' TRAP 


TTY KEYBOARD VECTOR 
TPVEC= 64 72 TTY PRINTER VECTOR 
PIRQVEC=240 :sPROGRAM INTERRUPT REQUEST VECTOR 


FARA KEKKEREKREREKEEREREKEEREREEREEEEEEKREEEKEKREEKKKKKKKE 


-SBTTL RH11 REGISTERS 


2 FARRER KERRIER EEEKKEKEEKKKKEKKEREKEKKEKRKEEREKEEREEEKEKEK 


CONTROL AND STATUS REGISTER 1 (RPCS1) 


: INTERRUPT ENABLE (BIT #6) 
:READY (BIT #7) 

HIGH ORDER BUS ADDRESS BIT (BIT #8) 
SHIGH ORDER BUS ADDRESS BIT (BIT #9) 
zPORT SELECT (BIT #10) 

SMASSBUSS PARITY ERROR (BIT #13) 
; TRANSFER ERROR (BIT #14) 
SPECIAL CONDITION (BIT #15) 


D COUNT REGISTER (RPWC) 
(EACH BIT IS CALLED BY BIT NUMBER) 


;BUS ADDRESS REGISTER (RPBA) 
: (EACH BIT IS CALLED BY BIT NUMBER) 


CONTROL AND STATUS REGISTER 2 (RPCS2) 


UNIT SELECT (BIT 40) 

UNIT SELECT (BIT #1) 

:UNIT SELECT (BIT #2) 

cane ADDRESS INCREMENT INHIBIT (BIT #3) 
yt or ant TEST (BIT #4) 


MASS BUS PARITY ERROR (BIT #8) 
sMISSED TRANSFER ERROR (BIT #9) 
[PROGRAM E (BI ) 


T #10 
NON EXISTENT MEMORY (BIT #11) 
NON EXISTENT DRIVE (BIT #12) 
[UNIBUS PARITY ERROR olT #13) 
WRITE CHECK ERROR (BIT #14) 
;DATA LATE (BIT #15) 


;DATA BUFFER REGISTER (RPDB) 
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: (EACH BIT IS CALLED BY BIT NUMBER) 


FF III IIT IKI I II TI II ITI KEKE RIKER RTE IKK EKER 


~SBTTL RPO4/5/6 REGISTERS 


FF IK IK RK REIKI KKK KEKE KEE KEK EEK KKK KKK IK 


:CONTROL AND STATUS 1 REGISTER. (400) 


1 :GO BIT (BIT #0) 

2 FUNCTION CODE BIT #1 
. - FUNCTION CODE BIT #2 
2 


40 F ON CODE BIT #5 
4000 SDEVICE AVAILABLE (BIT #11) 
DRIVE STATUS REGISTER (RPDS1) (401) 


DRIVE FORWARD 5''/SEC. (BIT #0) 
DRIVE FORWARD 20°'/SEC. (BIT #1) 
DRIVE TO INNER GUARD BAND (BIT #2) 
:GO REVERSE (BIT #3) 

DIFFERENCE LESS THAN 64 (BIT #4) 
DIFFERENCE EQUALS 1 (BIT #5) 

: VOLUME VALID (BIT 46) 

;DRIVE READY (BIT #7) 

: DRIVE PRESENT (BIT #8) 

;PR E (BIT #9) 


OGRAMABL 
:LAST SECTOR aoe (BIT #10) 


(BIT #12) 
ERATION re PROGRESS (BIT #13) 
40000 COMPOSITE ERROR (BIT #14 
100000 ATTENTION ACTIVE (BIT #15) 


ERROR REGISTER #01 (RPER1) (#02) 


ILLEGAL FUNCTION (BIT #0) 

: ILLEGAL REGISTER (BIT #1) 

REGISTER MODIFICATION REFUSED (BIT #2) 
PARITY ERROR (BIT #3) 

FORMAT ERROR (BIT #4) 

[WRITE CLOCK eT ns #5) 


ECC HARD ERROR (BIT #6) 
HEADER COMPARE A BIT #8) #7) 


40000 IT # 
100006 “DATA CHECK ERROR (BIT 15) 





C 
Ci 


C 
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CoRIBD. P11 


28-MAR-79 11:23 


RP04/5/6 REGISTERS 


sMAINTAINABILITY REGISTER (RPMR) (403) 


sDIAGINOSTIC MODE (BIT #0) 
2 sMAINTAINABILITY CLOCK (BIT #1) 
& sMAINTAINABILITY INDEX (BIT #2) 
10 sMAINTAINABILITY SECTOR CLOCK (BIT #3) 
0 sMAINTAINABILITY READ (BIT #4) 
40 sMAINTAINABILITY WRITE (BIT #5) 
200 sMAINTAINABILITY SYNC DETECTED (BIT #7) 


sATTENTION SUMMARY PSEUDO-REGISTER (RPAS) (404) 
ATO= DEVICE 0 (BIT 40) 
AT1= , ;DEV 1 (BIT #1) 
AT2= ; 2 
AT3= ; 3 
AT4= 4 
AT5= 5 
AT6= ; 6 
AT7= 2 DEV VICE 7 


DESIRED SECTOR/TRACK ADDRESS REGISTER (RPDA) (#05) 
:(EACH BIT IS CALLED BY BIT NUMBER) 


sDRIVE TYPE REGISTER (RPDT) (#U6) 


1 
2 
3 
4 
5 
6 
7 
8 
9 


TYPE NUMBER BIT 
:DRIVE REQUEST aa (BIT #11) 
;MOVING HEAD (BIT ai 
TAPE DRIVE (BIT #14 

SNOT BLOCK ADDRESSED. (BIT #15) 


s;LOOK-AHEAD REGISTER (RPLA) (407) 


Wr—-oO 


Re RWOWN-OV~vevevvv 


STRACK FIELD 1 
10000 TRACK FIELD 2 


SEQ 0015 





font on 
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TRK4= 20000 : TRACK FIE 
TRK10= 40000 ; TRACK FIE 
TRK20= 100000 ; TRACK FIE 


sRPO4 ERROR REGISTER #2 (RPER2) (#10) 
wCU= ey A: CURRENT UNSAFE (BIT #0) 


IT #8 
:MULTIPLE HEAD SELECT (BIT #9) 
:NO HEAD SELECTION (BIT #10) 
; INDEX ERROR (BIT #11) 
:30VOLT UNSAFE (BIT #12) 
0000 [PLO UNSAFE (BIT #13) 
100000 SAC UNSAFE (BIT #15) 


;RPO5/6 ERROR REGISTER #02 (RPER2) (#10) 


WCU= 1 WRITE CURRENT UNSAFE (BIT #0) 
CSF= CURRENT SINK FAILURE (BIT #1) 
WSU= sWRITE SELECT UNSAFE (BIT #2) 
+ CURRENT SWITCH UNSAFE (BIT #3) 
;READ AND WRITE (BIT #4) 
; TRANSITIONS DETECTOR FAILURE (BIT #5) 
aie ater tart (BIT #6) 


> ABNORMAL #7 

sWRITE READY UNSAFE (BIT #8) 
;MUTLTIPLE HEAD SELECT (BIT #9) 
:NO HEAD SELECTION od #10) 

: INDEX ERROR (BIT #11) 

;PLO UNSAFE (BIT #12) 


ICRO INCHES (BIT #4) 
MICRO INCHES (BIT #5) 
“OFFSET NEGATIVE (REVERSE) (BIT #5) 
HEADER COMPARE INHIBIT (BIT #10) 
ERROR CORRECTION coe INHIBIT (BIT #11) 
[FORMAT BIT (BIT #12 


DESIRED CYLINDER ADDRESS (RPCA) owie 
: (EACH BIT IS CALLED BY BIT NUMBER) 


CURRENT CYLINDER ADDRESS (RPCC) ato 
: (EACH BIT IS CALLED BY BIT NUMBER) 





On 
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SERIAL NUMBER REGISTER (RPSN) (414) 
: (EACH IS CALLED BY BIT NUMBER) 


:RPO4 ERROR REGISTER #03 (RPER3) (#15) 


1 PACK SPEED UNSAFE (BIT #0) 

2 VELOCITY UNSAFE (BIT #1) 

10 ZANY UNSAFE EXCEPT READ/WRITE (BIT #3) 
40 sAC LOW (BIT #5) 

100 DC LOW (BIT #6) 

40000 ;SEEK INCOMPLETE (BIT #14) 

100000 OFF CYLINDER (BIT #15) 


ERROR REGISTER #03 (RPER3) (#15) 

3 te UNSAF E of 

40 

100 ; #0) 

20000 ;OPERATOR PLUG ERROR (BIT #13) 


40000 SEEK INCOMPLETE (BIT #14) 
100000 [OFF CYLINDER ERROR (BIT #15) 


ECC POSITION REGISTER (RPEC1) (416) 
2 (EACH BIT IS CALLED BY BIT NUMBER) 


ECC PATTERN REGISTER (RPEC2) nde, 
: (EACH BIT IS CALLED BY BIT NUMBER) 


DD I IK III KIRK KKK KEKE KKK KKK 


-SBTTL RPO4/5/6 DRIVER COMMANDS 


SIRE RRR KKK KER EERE REE REE KEKE KKK 


7NO OPERATION 
; UNLOAD 
7 SEEK 
;RECALIBRATE 
;DRIVE CLEAR 
RELEASE 

: OFF SET 

;RETURN 9 CENTER LINE 
:READ IN PRESET 

PACK D  atenats E 


:GET prensrons 
;SET FORMAT .. ECI OR HC]) 


— 
oO 
W 


ECK DAT 
WRITE pax HEADER & DATA 
[WRITE DAT 
WRITE HEADER & DATA 


READ DAT 
TREAD HEADER & DATA 


| | 
ee me ee ed ee ed ed ed ed aed ad od 
NNOOAWUES & SWRI SS -2 OO 
WWW IW WAR NSS 


SEQ 0017 





oT om | 
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922 
923 
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-SBTTL COMMON TAGS 


FARRER KERR KERR EEE EERE EEK EERE EEK EERE KE 


TATHIS TABLE gle VARIOUS COMMON STORAGE LOCATIONS 
>*USED IN THE PROGRAM 


001100 
Np zsSTART OF 


LAG 
SUBTEST ITERATION COUNT 
SCOPE LOOP ADDRESS 
COPE RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 
ITEM CONTROL BYTE 
MAX. ERRORS PER TEST 
PC OF LAST ERROR ee 


DATA 
: IRESERVED=-NOT TO BE USED 


; sAUTOMATIC MODE INDICATOR 
3s INTERRUPT MODE INDICATOR 


: ADDRESS OF SWITCH REGISTER 
2 ADDRESS OF DISPLAY REGISTER 
73TTY KBD sore 


::TTY KBD BUFFER 

2: TTY PRINTER STATUS REG. ADDRESS 

:-TTY PRINTER BUFFER REG. ADDRESS 
:-CONTAINS NULL CHARACTER FOR FILLS 
ssCONTAINS # OF FILLER CHARACTERS wits ae 
2 BERT FILL CHARS. AFTER A ‘LINE 
;''TERMINAL AVAILABLE’' FLAG (BiT<07>= O YES) 
3 ESCAPE a 1 ADDRESS 


ca a ae ce ed cd ca ad cd a a cd ce ca ce ce ed ed ed od 
SSWWAWWNND 2 SS SS oo 
lelelelelelelelelelel lelalelelelelelo) 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
001 


09° 
Sy 
oD 
v 


000000 :0 
ve 000377 : <207><377><377> ; 3 


MARK 
<i5> CARRIAGE RETURN 
<12> NE FEED 


TE ee A ROOD 5 te A, ODP OI 


7RH11/RP04/5/6 wr 3 ADDRESS 
:RH11_ INTERRUPT VECTOR 
:ADDRESS OF KW11-P CSR 
$ : SADDRESS OF KW11-P COUNTER BUFFER 
000106 $ sADDRESS OF KW11-P VECTOR 
$LKS: 46 sADDRESS OF KW11-L CONTROL REGISTER 
000102 : sADDRESS OF KW11=-L VECTOR 
DRIVE: CONTAINS DRIVE NUMBER SELECT Fes 
sTONTeNTS ARE FOR SOFTWARE DECIS 
FORMAT & VERIFY*® OR ‘CHECK’ MODE. INDICATOR 
“ENDING CYLINDER 
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BEGCYL: STARTING CYLINDER 
Ss SENDING TRACK 
ZSTARTING TRACK 
+ TOTAL # OF TRACKS TO BE FORMATTED 
OUNTER 


FROM 0-18 PER CYL 
; CONTAINS PATTERN SELECTED 
21ST WORD OF PATTERN 
Z2ND WORD OF PATTERN 
: STORE CYLINDER ADDRESS FOR S pe VERIFICATION 


co 


000000 
000022 
000000 


FORMAT 

ON EMAINING SECTORS ON ERROR 
320 OR 22 SECTOR TRACK SIZE (IN WORDS) 
:2°S COMPLEMENT OF ‘WC’ 
:B0S1 TIONING ERROR DURING Aran INDICATOR 

OR 22 SECTOR MODE INDICAT 
50'S gh: Ton Pa 

1°S = 22 SECTOR MODE 
‘muna SECTOR ADDRESS (FOR EITHER 20 OR 22 SECTOR 
sADDRESS OF CURRENT CYLINDER 
sADDRESS OF CURRENT TRACK 
:DRIVE R OF "DRIVER® ERROR MESSAGES 
ZATTENTION REGISTER IMAGE FOR "DRIVER 
ERROR MESSAGES 
;ADDRESS OF °*C* RETURN 

"CHANGE RH11 ADDRESS’ FLAG 
0 > "ERROR DURING WRITE CHECK' FLAG 


3RH11/RP04/5/6 REGISTERS STORED HERE AFTER AN OPERATION 
RP.REG: .WORD 
- WO. 


leleleleleleleleleleleleleleleomio) 


0 
0 
0 
0 
0 
0 
0 


oo 


wleleleleleleleleleleleloleleleleolo) 


;DATA/PARAMETER BLOCK = USED FOR ALL DRIVE OPERATION 





CZRJBDO, RPO4/S/6 FMTR MACY11 
CZRJBD.P11 


28-MAR-79 


000 


054503 


11:23 


000000 
000022 
000000 
000022 


051101 


wcities! 


001224 
001226 
020124 

00 


054503 
052040 


24-MAY-79 
OMMON TAGS 


FMTDPB: OrTE 


I 
14:10 PAGE 23 


lelelelelelele) 


P.REG 


owDoo 


PARAMETER POINTER TABLE 


TABLE : 
Pans ’0 


and 0,BEGCYL 


18. <BEGTRK 
NDCYL 


PAR. 7 /ENDTRK,O 


WORD COUNT (NEG) 
;BUFFER ADDRESS 


7SECTOR ADDRESS 


sASCII MESSAGES FOR ADDRESS PARAMETERS 


PAR1: eASCIZ @START CYL a 
PAR2: eASCIZ @START TRK a 
PAR3: -ASCIZ @END CYL @ 
PAR4: .ASCIZ @END TRK a 


SECTOR BUFFER ADDRESS TABLE 


ADRTBL: .WORD 


WORD 


BUFP 


BUFP+<520.*1.> 
BUF P+<520.*2.> 


BUF P+<520. 


BUFP+<520.*7. 


BUFP+<520.* 


BUFP+<590. #9,> 


BUFP+<520. 
BUF P+<520. 
BUF P+<520. 


NAMEWN =O 
“es © © @ 
VvuvvvvvyY 


sADDRESS OF SECTOR 


“ADDRESS OF SECTOR 


SR SB QOOVNOUSWN-O 


NOWUSWN—O 


;DRIVE NUMBER 

;OFFSET VALUE OR FMT22,ECI, 
; COMMAND 

;PSEL AND A17 AND A16 


7 ERROR I 
; STATUS~ERROR INDICATOR 
:B ims OCCURRED 


pe 
IT BIT 06-03 
INDICATE TYPE OF ERROR 


AND HCI 


SEQ 0021 
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1092 
1093 


33 


SESz 


VSDHOVEARWHASSRIFARALLS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


kD cD Dd ed ed ed dd 


mn 
Wr 


28-MAR-79 
BUF P+<520.*18, 
BUF P+<520.*19. 
BUF P+<520.*20. 
BUFP+<520.*21, 
;REMAINING WORD COUNT TABLE 


WCTBL: .WORD 
- WORD 


> 
> 
> 
> 


260. 
260. +<260.*1.> 


013130 


sADDRESS OF SECT 
sADDRESS OF SECT 
ADDRESS OF SECT 
sADDRESS OF SECT 


REMAINING WORD 


REMAINING WORD 
REMAINING WORD 
[REMAINING WORD 
REMAINING WORD 


SSSSSSSQS 
WDWNAULSWN-O 


Se eee ee 
COWONAULSWN-O 


4) 
mv 
ao 
4 
3 
Nm 
ad 


SEQ 0022 
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-SBTTL ERROR POINTER TABLE 


3*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

>*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

; *LOCAT ION SITEMB. ote it 6 INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
;*NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS ($ERRPC). 

 *NOTE2: EACH I7EM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


3sPOINTS TO THE ERROR MESSAGE 
:sPOINTS TO THE DATA HEADER 
:sPOINTS TO THE DATA 

:sPOINTS TO THE DATA FORMAT 


yt 
4 
~ 
+ 


022512 3RH11 INTERRUPT OCCURRED (RPAS=0) 


a dd dd nd ed ad I 


MVMIVIMUIU ES EE ERE ERE OW 


025460 


022553 UNEXPECTED ATTENTION OCCURRED 


022611 sMASSBUS PARITY ERROR (MCPE=1) 
023756 
025164 
025470 


DO NRAR WY A ODONANE WOOO SRAR AAAS RURS 


SSN 


022647 s;MASSBUS PARITY ERROR (PAR=1) 
024004 
025172 
025474 


zADDRESS PLUG CHANGE BIT SET 
oceree :RH11 DIDN'T RESPOND TO ADDRESSING 


24043 
025202 
025460 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


a ch ee ek ye ek ed ek ed a ed ed od od 


BBVSARANASSELFE ALAR 
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S | 


sERROR 7 


DRIVE OFFLINE 


PERSISTENT DRIVE UNSAFE ERROR 


ed ed ed ed 
BELEARRASLESELRARAVTS 


: UNCORRECTABLE MASSBUS PARITY ERROR 


SRanes 


Sees 


SOFTWARE TIMEOUT 


DRIVE UNSAFE ERROR 


MOMNMINNNoNoNoNefo 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ad ee aaah ch ch ed ed ch and od 
SOOONAUSWN—O 


Mr 
MN 
—_ 


:CONTROLLER/DRIVE ERROR DURING WRITE 


:CONTROLLER/DRIVE ERROR DURING WRITE CHECK 
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;ERROR 17 
023303 sRETRIES NOT SUCESSFUL = SECTOR NOT ACCEPTABLE 


DATA ERROR DURING WRITE CHECK 


:CONTROLLER/DRIVE ERROR VERIFYING HEADERS 


: "HCE" ERROR VERIFYING HEADERS 


5 
025500 





CZRJBDO, RPO4/5/6 FMTR macy ecanned” aktn Coit 14:10 PAGE 28 


CZRJBD.P11 28-MAR-79 11 


023537 


0 
025520 


OR POINTER TABLE 
sERROR 23 
:CYLINDER FIELD IN HEADER IS NOT CORRECT 


:WRITE CHECK ERROR 


HARDWARE ERROR DURING WRITE CHECK 


SRK EKER KEE REE RRR EKKKKRKKEKERKEEEREKKKEKEKEKK KK IK 


-SBTTL MAIN PROGRAM 


SEQ 0026 
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005037 
012737 
000413 
012737 
012737 


B 
MACY11 30A(1052) mile proche 14:10 PAGE 29 
23 N PROGRAM SEQ 0027 


DLE REE RRR RRR EKER EERE REE KEREEREEKEEE KEE 


001302 BEGIN3: CLR CHGADR :CLEAR THE INDICATOR 

000001 013310 a cckua TSTPGM [ENABLE PROGRAMMABLE DRIVES 

177777 =001302 BEGIN: MOV 4-1, CHGADR SET CHANGE *RH11 BUS ADDRESS‘ INDICATOR 
000001 013310 MOV #1, TSTPGM ;ENABLE PROGRAMMABLE DRIVES 





Ci 
C2 
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1297 002130 000404 BR BEGIN2 START THE PROGRAM 
1298 002132 005037 001302 BEGIN1: a CHGADR CLEAR THE ‘CHANGE RH11 ADDRESS’ INDICATOR 
1299 002136 005037 013310 CLR TSTPGM DISABLE PROGRAMMABLE DRIVES 
1300 002142 000005 BEGIN2: RESET ;CLEAR THE BUS 
1307 002144 005037 001304 CLR EFLG CLEAR ERROR DURING WRITE CHECK FLAG 
1302 .SBTTL_ INITIALIZE THE COMMON TAGS 
1303 3:sCLEAR THE COMMON TAGS ($CMTAG) AREA 
1304 002150 012706 001100 MOV ASCMTAG,R6 7-FIRST LOCATION TO BE CLEARED 
1305 002154 005026 CLR (R6) + :sCLEAR MEMORY LOCATION 
1306 002156 022706 001140 CMP ASWR,R6 ; ;DONE? 
1307 002162 001374 on .~6 ;LOOP BACK IF NO 
1308 002164 012706 001100 #STACK, SP :ESETUP THE STACK POINTER 
1309 ; s pINITIALIZE A FEW VECTORS 
1310 002170 012737 007064 000030 MOV ASERROR , A#EMTVEC ‘if Eye VECTOR FOR ERROR ROUTINE 
1311 002176 012737 000340 000032 MOV ores QWEMTVEC+2 331 7 
1312 002204 012737 012242 000034 MOV STRAP, AATRAPVEC :; FRAP VECTOR FOR TRAP CALLS 
1313 002212 012737 000340 000036 MOV #340, ai TRAPVEC $2: LEVEL 7 
1314 002220 005037 001160 CLR SESCAPE Bar THE FSCAPE ON ERROR ADDRESS 
1315 002224 112737 000001 001115 MOVB #1 , SERMAX ;ALLOW ONE cRROR PER TEST 
1316 73SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
1317 3;EQUAL TO A *1"', SETUP FOR A SOFTWARE ow Dh REGISTER. 
1318 002232 013746 000004 MOV @VERRVEC.~(SP) ;;SAVE ERROR VECTOR 
1319 002236 012737 002272 000004 MOV #64$,QHERRVEC 3:SET UP ERROR VECTOR 
1320 002244 012737 177570 001140 MOV #DSWR, SWR sedge FOR A HARDWARE SWICH i>! at 
1321 002252 012737 177570 001142 MOV #DDISP,DISPLAY ::AND A HARDWARE DISPLAY REGISTE 
1322 002260 022777 177777 176652 CMP #-1,aSWR 3.TRY TO REFERENCE HARDWARE SWR 
1323 002266 001012 BNE 66$ 3 BRANCH IF NO TIMEOUT TRAP OCCURRED 
1324 3sAND THE HARDWARE SWR IS NOT = -1 
1325 002270 000403 BR 65$ : BRANCH IF NO TIMEOUT 
1398 ooSshe 012716 002300 64$: 43] #65$, (SP) :-SET UP FOR TRAP RETURN 
1328 2300 012737 090176 001140 65$: MOV A#SWREG, SWR :zPOINT TO SOFTWARE SWR 
1329 002306 012737 069174 001142 MOV #DISPREG,DISPLAY 
Ise 002314 012637 00L104 66$: MOV (SP)+,@MERRVEC ;;RESTORE ERROR VECTOR 
1332 002320 5 RESET ;CLEAR WORLD 
1333 002322 012737 000240 000036 MOV #PRS,@#TRAPVEC+2 :CHANGE TRAP PRIORITY BACK IO 5 
1334 002330 012737 000240 000032 MOV #PRS,QMEMTVEC+2 ;CHANGE EMT PRIORITY BACK TO 5 
1335 002336 012737 002132 001300 MOV WBEGINI,CNTLC :*CONTROL C* ADDRESS 


oh cel aad cath cal el ald cal eal 
www 
BOVE 


SERESSESSESEN SUNOS Sakae es 


~N 
wN-SdD 


SERRE 
ONAUSRWN 


WW 
~ 


SEELESRERESS 


31 
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177777 #~1 :FIRST START ? 
;BRANCH IF NO 
000001 013310 ‘1. TSTPGM ENABLE PROGRAMMABLE DRIVES 
025574 LE ;TYPE THE PROGRAM'S TITLE 
E “BRANCH IF NO 
021010 USE : TYPE MSG 
BNE : 
025651 , LOADRV : INSTRUCT OPERATOR TO REMOVE "XxDP* 
[PACK FROM DRIVE 0 
010432 JSR PC,$TKINT [TURN ON T 
GET VALUE FOR SOFTWARE SWITCH REGISTER 
TST ane 7ARE WE RUNNING UNDER XXDP/ACT? 
001140 000176 SWR,ASWREG © ::SOFTWARE SWITCH REG SELECTED? 
68$ ::BRANCH IF NO 
BR 68$ 
000001 001134 #1, $AUTOB z2SET AUTO-MODE INDICATOR 
177777 : CHECK FOR FIRST START 
001172 012474 SRPADR,RPADR = :RH11 ADDRESS 
001174 012476 SRPVEC.RPVEC | :RH11 VECTOR ADDRESS 
; PROGRAM WILL USE 
006170 SETVEC: PC,ST.CLK :START THE CLOCK 
177777 012434 #~-1, SAVEFG :SET THE SAVE REGISTERS FLAG 
177777 #-1 SEE IF FIRST START 
000340 177776 : MOV [SET PRIORITY TO 7 
R4 :DRIVE TABLE POINTER 
001167 
R4,-(SP) ::SAVE R4 FOR TYPEOUT 
7: TYPE DRIVE NUMBER 
2 ::TYPE 2 DIGIT(S) 
0 7: SUPPRESS LEADING ZEROS 
021303 : SPACES 
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1$ ‘BR IF NOT 
000042 000046 O42, ana :ACTII AUTOMATIC MODE? 
: tat 
013310 : iSTPGM :CAN WE USE PROGRAMMABLE DRIVES? 
000011 000041 : #11,41 ;LOADED FROM AN RPO04/S/6 ? 
“BR IF NOT 
HE KEYBOARD INTERRUPT 
000042 
ZBRANCH IF YES 
T:GET SOFT-SWR SETTINGS 
026076 :CHECK THE RH11 ADDRESS 
;DISPLAY DRIVE STATUS AND SET UP THE OTHER UNITS THE 
012512 JS PC-RPINIT ZINITIALIZE THE RPO4/5/6 DRIVER 
11$ :BR IF YES 
000004 176400 :TYPEOUT THE DRIVE STATUS TABLE ? 
10$ “BR IF NOT 
7 CR-LF 
021240 *SYSTAT :TYPE STATUS HEADING 
::GO TYPE=-OCTAL ASCII 
,LINGSP ; 
2346 BRVSTA(RG) [CHECK DRIVE'S STATUS 
BM 4$ F UNSAFE 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


5$ 7BR_IF ONLINE 
012356 DRVTYP(R4) :SEE IF OFFLINE OR NONEXISTENT 


W 
be) 
ad 
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104401 
012737 


MACY11 30A(1052) 
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021153 
021174 
000010 
021065 
021132 
021211 
021143 


021226 
000002 
021233 


001167 
000010 
001167 


001220 
021521 


000103 
000106 
001166 
021574 
021553 


021607 
177777 


012356 


002736 
012356 


002736 
012356 


002736 


001220 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


2$ BR IF NONEXISTENT 
3$ OF F 
NOTRP 


V 
NOTPRS “DRIVE NOT PRESENT 
§ = CHECK NEXT DRIVE 
#81703, DRVTYP(R4) ;DRIVE PROGRAMMABLE ? 
12$ :BRANCH IF NO 


H 

,NOUSE PRINT MSG 

6s :PRINT DRIVE TYPE 
, UNTOFF [DRIVE OFFLINE 

$ :PRINT poh TYPE 
,NOTSAF [DRIVE UNSAFE 
6$ ;PRINT DRIVE TYPE 
-UNTON <ORALE ONL INE 


ACES 
POF OF RPO4 MESSAGE 


SP 
RPO04B, 8$ 
31100, “DRVTYP(RGS 


YES 
#ARPOS , 8S ADDRESS OF RPOS MESSAGE 
#BITO1, DRVTYP(R4) P05 ? 


YES 
#RP06, 8S TADDRESS OF RPO6 MESSAGE 
TYPE THE DRIVE TYPE MESSAGE 
0 ;MESSAGE ADDRESS HERE 
-$CRLF ; CRLF 
R4 : INCREMENT DRIVE NUMBER/TABLE POINTER 


R4 #8. 
1 BR IF NOT 
- $CRLF CR-LF 


SEE WHICH MODE THE PROGRAM IS TO BE RUN IN 


“MOD ES ARE: 
M1: 


1$: 
2$: 


3$: 
4$: 


"FORMAT & VERIFY’ OR ‘CHECK FORMAT' 


MODE SET MODE TO ‘CHECK FORMAT‘ 
-MMODE : TYPE "PROGRAM MODE’ 
[READ THE KEY 
(SP)+,R1 :GET ADDRESS OF INPUT 
(R1) JS (DEFAULT) 


:BR IF YES 

:NO CORRECT ENTRY 

: TRY AGAIN 

TYPE REST OF ‘CHECK’ 

:GET STARTING ADDRESS 

: TYPE DEFAULT MESSAGE 
UP_MOD 


: E 
STYPE REST OF "FORMAT' 
7SET MODE TO "FORMAT & VERIFY* 


:FIND OUT IF FORMAT IS TO BE IN 20 OR 22 SECTOR MODE 





aa 


F 
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021627 MIA: TYPE »MSIZE : TYPE FORMAT MODE REQUEST 
RDLIN sREAD THE KEYBOARD 
(SP)+,R1 sADDRESS OF ENTRY 
000131 #*Y,(R1) 71S ENTRY A ‘Y' ? 
1$ :BR IF IT IS 
000116 tg papi :I1S ENTRY A ‘N' ? 


:BR IF IT IS 
; 1. ;DEFAULT MODE ? 
001166 ,$QUES 
M1A 


BR 3 TRY AGAIN 
021700 : .MSEC22 :TYPEOUT MODE SELECTED 
013130 001256 MO 4#<260.*22.>,WC TRACK SIZE IN 22 SECTOR MODE 
164650 #~<260.*22.>,MWC :2°S COMPLEMENT WORD COUNT 
177777 SEC20 22 SECTOR INDICATOR 
000025 001266 #21 MAXSEC MAX SECTOR ADDRESS IN 22 SECTOR MODE 


BR 
021757 : .MSEC20 TYPE OUT 20 SECTOR MODE SELECTED 
001256 .*20.>,WC :TRACK SIZE IN 20 SECTOR MODE 
001260 #~<260.*20.>,MWC :2°S COMPLEMENT BORD COUNT 

SEC20 20 SECTOR INDICATOR 
001266 #19. ,MAXSEC MAX SECTOR ADDRESS IN 20 SECTOR MODE 
: BEGTRK [CLEAR STARTING TRACK ADDRESS 
BEGCYL =CLEAR BEGINNING CYLINDER ADDRESS 
001226 #18. ,ENDTRK :SETUP END TRACK ADDRESS 
001240 #2,PATSEL :SETUP FOR WORST CASE PATTERN 
001356 #-1,FMTDPB :SETUP INVALID DRIVE NUMBER 
MO ‘BRANCH TO STAR 


:GO FIND OUT WHAT DRIVE 


001300 MC: MOENTER, CNTLC + CONTROL C ABORT ENTRANCE 
SERTTL :CLEAR THE ERROR ACCUMULATOR 
PC,$TKINT S INITIALIZE THE TTY KEYBOARD 
021257 -MUNIT zASK_ FOR DRIVE NUMBER 
READ THE KEYBOARD 
MO (SP)+,R1 ADDRESS OF ENTRY 
006654 R5,CK.CHR CHECK ONE CHARACTER 
$ ZILLEGAL CHARACTER 
: CARRIAGE RETURN 


aca 0-7 


:DIGIT 8-9 

001214 : CL DRIVE sacle! DRIVE ZERO 
021301 MDRVD 7GO TYPE DEFAULT DRIVE NUMBER 

BR $ :GO SEE | IF DRIVE ZERO IS THERE 
001166 : ,$QUES : TYPE 

BR SASK FOR DRIVE NUMBER AGAIN 
001214 : R2,DRIVE SAVE DRIVE NUMBER 

R2 :SEE IF DRIVE 0 

:BR NOT 


5$ IF 
000011 000041 MPB 411,41 sPROGRAM LOADED FROM AN RPO4/5/6 ? 

7$ 7BR IF IT WAS, Mal T FORMAT THE DRIVE 
006170 : PC,ST.CLK el THE CLOC 
012512 PC,RPINIT ;GO SEE WHAT DRIVES ARE AVAILABLE 





On 


G 
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012737 177777 012434 #-1, SAVEFG ee THE REGISTERS 
012436 #-1,SEEKFG ; SET 


PS 
012346 DRVSTA(R2) 
GT 8$ 


CH IF ONLINE 
6$ "BR IF DRIVE NOT AVAILABLE 
021467 -MUSDR ;"DRIVE UNSAFE’ 
BR MO £60 GET DRIVE —- AGAIN 
012356 : renee ots PRESENT 


BN 
021362 Mh age TYPE "DRIVE NOT PRESENT‘ 
021407 : - Pat 
001214 001356 : DRIVE ,FMTDPB SAME DRIVE AS LAST TIME ? 
2 :BR_IF IT IS 


M 
001214 001356 DRIVE. EMTDPB : SETUP DRIVE ADDRESS 
000632 001222 NDCYL  =SETUP FOR RPO4/ 
012356 welTOOe TOT -DRVTYP(R2) ;SEE IF DRIVE RPO4/5 

9$ :BR IF EITHE 


R 
001222 + $+ TF alee SETUP ENDING CYLINDER FOR RPO6 
: GTRK :CLEAR STARTING TRACK ADDRESS 
BECCYL CLEAR STARTING CYLINDER ADDRESS 
001400 ENDCYL,TABLE+2 ENTRY LIMIT FOR BEGINNING CYLINDER 
001414 ENDCYL,TABLE+16 ;ENTRY LIMIT FOR END CYLINDER 
M2 GET ADDRESS LIMITS FROM THE OPERATOR 


MAAAAAAAI AIT UTI UT 


DONMONPONPINININNOD) Ss Ss Ss Ss Ss os os os 


GET ADDRESS LIMITS 


021310 M2: -ENTADR : ENTER ADDRESS LIMITS‘ 
006464 PC ,PARENT ;GET THE ADDRESS LIMITS 
001222 001224 ENDCYL. -BEGCYL :SEE IF soda’ CYLINDER EQ TO GT THAN BEGINNING 


WWW 


3$ :BR_IF LESS 
001226 001230 : MP rn ae ‘SEE IF ENDING TRACK EQ OR GT THAN BEGINNING 


IF YES 
022056 3$: -MADRER : INVALID ADDRESS ENTERED 
M2 :TRY AGAIN 


WAU WA MUNRO 


abe ah@al 
Ps 
N 


:GO GET PATTERN FOR FORMAT 


022160 M4: eMSELP :GO TYPE ‘SELECT PATTERN’ 
IN [READ THE KEYBOARD 
V (SP)+,R1 ENTRY ADDRESS 
006654 R5,CK.CHR CHECK ONE CHARACTER 
> ILLEGAL CHARACTER 
: CARRIAGE RETURN 


‘DIGIT 0-7 
DIGIT 8-9 
022260 : ‘ : TYPE DEFAULT PATTERN 
000002 ;WORST CASE PATTERN 
BR 4 :GO are PATTERN 
000002 : , 71S # LARGER THAN 2 
4$ BRANCH IF NOT 


VMVIiwnay 
HRREREKRH 
NOM SW 


WONAUWERWN OO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


MOMMA AMMA 
MAMMA TU 


101403 





On 
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104401 
000751 
010237 


003630 
003634 


012737 


013746 
104403 
001 


000 
104401 


023737 
11 


001166 
001240 


006364 
001220 


022273 
022330 
001214 


001300 


001224 


001232 
001232 


001232 
001232 


001232 


001232 


001240 


001242 
001244 


Rey 


14:10 
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3$: TYPE 
BR 
4$: MOV 


-SQUES 
M4 
R2,PATSEL 


gives 
sRETYPE LINE 
SAVE PATTERN SELECTED 


:GO TYPE "STARTING FORMAT ON DRIVE N° 


ATYPADR,CNTLC 
MODE 

1$ 

MSF OU 

3$ 

/MSCHK 

DRIVE ,-(SP) 


j 
0 
-SCRLF 


pane! “C_ENTRANCE 
*FORMAT® OR ‘CHECK" MODE ? 
“BR IF *CHECK* MODE 
TYPE "STARTING FORMAT ON DRIVE N' 


:TYPE ‘STARTING CHECK ON DRIVE N° 


3SAVE DRIVE FOR TYPEOUT 

{thy ; DRIVE NUMBER 
TYPE=-OCTAL ASCII 

ie 1 DIGIT(S) 

2 zSUPPRESS LEADING ZEROS 


bed = 
e 


SETUP TOTAL TRACK COUNT FOR FORMAT 


CKADRS: CMP 
BNE 


: THIS CODE SETS 
SETPAT: CLR 
CLR 


ENDCYL ,BEGCYL 
1$ 


ENDTRK,TTRKS 
BEGTRK, TTRKS 
TTRKS 

SETPAT 
ENDCYL ,R2 
BEGCYL ,R2 
ENDTRK,TTRKS 
eaeaidaennen 


#19.,TTRKS 
R2 

TTRKS 

R2 


SETPAT 
#19. ,TTRKS 
3$ 


UP THE SELECTED 


PATA 

PATB 

PATSEL 

1$ 

PATA 

PATB 

"i. -PATSEL 
#165555 PATA 
#133333, -PATB 


WC.R 
#BUFP ,RO 
PATA,R1 


zSTARTING AND ENDING CYLINDERS THE SAME ? 
BRANCH IF BEGCYL NOT EQUAL TO ENDCYL 
END TRACK ADDRESS 
SUBTRACT THE STARTING TRACK ADDRESS 
MAKE THE NUMBER OF TRACKS INCLUSIVE 
SETUP THE DATA PATTERN 
ENDING CYLINDER 
; SUBTRACT THE STARTING CYLINDER 
CALCULATE THE RESIDUAL TRACKS 
Jo RACT THE STARTING TRACK 
BR IF ENDING TRACK GREATER 
{CORRECT THE VALUE 
; COUNT on PARTIAL TRACK 
MAKE THE NUMBER INCLUSIVE 
‘On IF DON THE CYLINDER COUNT 


DONE 
ADD CYLINDER WORTH OF TRACKS 
ONT INUE 


DATA PATTERN TO BE WRITTEN ON EACH SECTOR IMAGE 


CLEAR DATA PATTERN A 
:CLEAR DATA PATTERN B 
7 SEE 4 PATTERN OF ONES 


IF SO 
7SET PATA TO ONES 
SET PATB TO ONES 
[SEE IF PATTERN OF ZEROS 
BRANCH IF SO 
#SET UP WORST CASE 


T UP ME *POIN 
'SET UP PATTERN IN R1 


SEQ 0033 





an 
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013702 001244 PATB,R2 ;SET UP PATTERN IN R2 
23: R1,(RO)+ :MOV 1ST PAT INTO MEM 
R2,(RO)+ MOV 2ND PAT INTO MEM 
R3 KEEP COUNT 
R3 KEEP COUNT 
2$ :DO IT AGAIN IF R3 NOT 0 


THIS CODE SETS UP FOR THE ACTUAL FORMAT 


005630 WRTRK : PC, SETTBL :GO SET _UP DRIVER TABLE 
006030 J G0 INITIALIZE HEADERS IN THE SECTOR BUFFER IN CORE 
000020 001357 22 BIT 
001264 C20 :18 BIT MODE ? 
1$ F NOT 


:BR 
001357 MTDPB+1 ;CLEAR THE FMT 22 BIT 
000143 001360 : MOVB MSETFMT, FMTDPB+2" ;*"LOAD FORMAT’ COMMAND 
013312 : RO,RPO4 


serene © 
SRVSRS 


2$ 
FMTDPB+16 
3$ ;LOOP UNTIL FINISHED 
SOF Sw :CLEAR ERROR COUNTER 
RETRY ZERO THE RETRY COUNTER 
EFLG CLEAR ERROR DURING WRITE CHECK FLAG 
FMTDPB+10 RESTORE SECTOR 
001362 MWC ,FMTDPB+4 RESTORE wC 
001364 #BUF P ,FMTDPB+6 Hey $n | BA 
MODE *FORMAT® OR ‘CHECK’ MODE ? 
B CKTRK BR IF *CHECK* MODE 
001360 : WuRTHD, FMTDPB+2 ;SET WRITE HEADER & DATA COMMAND IN TBL 
001110 MO #. ,SLPERR ;SETUP LOOP ON ERROR ADDRESS 
001100 AMSTACK, SP ;LOAD STACK POINTER 
013312 ; J RO,RPOS 7GO FORMAT A TRACK 
ADRS OF PARAMETERS - TBL 
BR 1$ alt FOR QUEUE IF FULL 
001374 : FMTDPB+16 T FOR COMMAND TO COMPLETE 
2s ; NOT DONE 


NASER at tener satiric 


004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
2 


4$ 
004324 #3$,,SESCAPE 
005462 Tt NDX 


DRIVE OFFLINE 
PERSISTENT DRIVE UNSAFE ERROR 
ORRE C TABLE +- ream PARITY ERROR 


SAFE ERROR 
:DRIVE /CONTROLLER ERROR DURING WRITE 
PC,LOP.CK ON THE ERROR ? 


#3,RETRY ERROR RETRY LIMIT ? 
4$ [BR IF REACHED 
RETRY ; COUNT THE ERROR 
1$ TRY AGAIN 
4$: SESCAPE SCLEAR ERROR ESCAPE ADDRESS 
RETRY :CLEAR THE RETRY COUNTER 


CHECK THE TRACK JUST WRITTEN 
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112737 000153 001360 CKTRK: MOVB MWCKHD , oe SET WRITE CHECK HEADER c " COMMAND IN TBL 
004364 001110 MOV #. ,SLPERR ; SETUP LOOP ON ERROR ADDR 
001100 #STACK, SP LOAD STACK POINTER 
013312 1$: J RO.RPOS :60 CHECK THE TRACK JUST FORMATTED 
sADRS OF PARAMETER ~ TBL 
BR 1$ WAIT FOR QUEUE IF FULL 
2$: FMTDPs+16 WAIT FOR COMMAND 10 COMPLETE 
2$ BRANCH IF NOT DONE 


8$ BRANCH _IF NO ERROR 
001252 RP. REG+RPDA, SAVSEC :GET THE SECTOR ADDRESS 
3$ CH IF NOT SECTOR 0 


NO OR 
001252 MOV MAXSEC,SAVSEC :RESTORE TO LAST SECTOR +1 
SAVSEC : INCREMENT TO LAST SECTOR +1 
3$: SAVSEC ;ADJUST a SY y= THE ONE THAT FAILED 
001160 #10$, SESCAPE APE T ON ERROR 
PC,,ERINDX 


; OFFLI NE 
;PERSISTENT DRIVE UNSAFE ERROR 
UNCORRECTABLE MASSBUS PARITY ERROR 
bo Ah ys Png 
14 IVE UNSAFE ERR 
001316 WCE .RP. REGERPCSD ye CHE CK ERROR ? 
BN 4$ ;BR IF SET 


RP.REG+RPER1, (PC)+ CHECK FOR DATA ERRORS 
+ iat 'DTE!HCRC!HCEIFER ~~ ERROR BITS 


;BR IF SE 

;CONTROLLER/DRIVE ERROR DURING WRITE CHECK 
sFORMAT OR CHECK MODE ? 

3;BR IF CHECK 

ZRETRYING THE SECTOR ? 

‘BR NOT 


IF 

001160 #11$,SESCAPE ;;ESCAPE TO 11$ ON ERROR 
EFLG ERROR DURING WRITE CHECK REPORTED ? 
21$ NO, INCREMENT ERROR COUNT 
SERTTL YES, DECREMENT REPORTED ERROR COUNT 
EFLG [CLEAR ERROR DURING WRITE CHECK FLAG 
17 ;SECTOR NOT ACCEPTABLE 
SESCAPE SCLEAR THE ERROR ESCAPE ADDRESS 
RP.REG+RPER1 DATA CHECK ERROR ? 

BP NO, CHECK OTHER ERRORS 

174344 #BIT7 ,aSWR : INHIBIT SOFT ERROR REPORTS ? 
7 YES, SKIP ERROR REPORT 

001304 #1,EFLG SET ERROR DURING WRITE CHECK FLAG 
20 DATA ERROR DURING WRITE CHECK 


BR 7$ ; CONT INUE 
001316 : #UCE.RP.REG*RPCS2 WRITE CHECK ERROR ? 
4$ MUST BE HARDWARE ERROR 
174312 #B1T7,aSWR INAIBIT SOFT ERROR REPORTS ? 
7$ YES, SKIP ERROR REPORT 
001304 MOV #1,EFLG SET ERROR DURING WRITE CHECK FLAG 
24 aed CHECK ERROR 


PUVA SIISIISAVIASSSS 


NN NN NN NN NON NNN NNN NNO SV 
OuSwWwrhy— 


BR 7$ ; CONT INUE 
001304 : #1,EFLG :SET ERROR DURING WRITE CHECK FLAG 
25 Z HARD oy ERROR DURING WRITE CHECK 
: SAVSEC ,R1 rs NG SECTOR ADDRESS 
001366 SAVSEC .FMTDPB+10 SSECTOR ADDRESS 


N 


ce ee ed ee a ed ed ed ed eed a we ed ed ed ed 
N 
NM 


N 
N 
N 
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R1 SETUP INDEX TO ADDRESS WORDS 

001364 1a Pt dy .FMTDPB+6 ;BUFFER ADDRESS FOR FAILING SECTOR 
MWC ,-(SP) ;GET MAXIMUM WORD COUNT VALUE (2'S COMP) 
WCTBL(R1),(SP) ADD WORD COUNT THROUGH FAILING SECTOR 
nee” , SAVWC 4 hha WORD cate mone 4 REMAINDER OF TRACK 


oF a 
177374 #-260.,FMTDPB+4 ;WORD COUNT 1 SECTOR 
001216 SOF Sw INDICATE THAT A RETRY IS IN PROGRESS 
004236 MP ;REFORMAT ERROR SECTOR 
001216 : SRETRY IN PROGRESS ? 
11$ :BR IF NOT 
000002 001216 3 SEE , LAST RETRY 
ot :BR IF IT IS 
001216 an 3; INCREMENT A is COUNT 


;READ 
001266 001366 : MPB i eeeggteetar Pt 4 Last SECTOR ON THE TRACK 


006002 PC, SCAWC SETUP TO CHECK REMAINING SECTORS ON THE TRACK 
001216 SOF Sw : CLEAR RETRY COUNTER 
001304 EFLG CLEAR ERROR DURING oh CHECK FLAG 
;FINISH CHECKING THE TRACK 
C,LOP.CK CHECK FOR LOOP ON ERROR 
m8. RETRY ERROR RETRY REACHED ? 
11$ 7BR IF IT IS 
RETRY $ T THE RETRY 
1$ ;DO THE WRITE CHECK AGAIN 
SESCAPE CLEAR THE ERROR RETURN ESCAPE ADDRESS 
RETRY CLEAR THE RETRY COUNTER 
EFLG >CLEAR ERROR DURING WRITE CHECK FLAG 
#B1T1,aSWR :LOOP ON CURRENT TRACK ? 
12$ ;BR IF NOT 


WRTRK1 START AGAIN ON THE SAME TRACK 
12$: PC, TRKTST GET UPDATED TRACK AND CYLINDER ADDRESSES 
BR HDREAD sRETURN HERE IF DONE - DO QUICK CHECK OF DISK 
WRTRK1 CONTINUE WITH THE FORMAT 


THIS CODE MAKES SURE EACH CYLINDER FORMATTED CONTAINS THE 
PROPER CYLINDER ADDRESS. THE PROGRAM IS LOOK FOR 
s:POSSIBLE POSITIONER ERRORS THAT MAY HAVE OCCURRED DURING THE FORMAT. 


HDREAD: CLR HEDERR CLEAR HEADER CHECK ERROR INDICATOR 
JSR PC,SETTBL R TABLE 


S_IN CORE 
FOR chee VERIFICATION 


; SET 
SET UP BUFFER ADRS 
PB CLEAR THE SECTOR & ey ADDRESS FIELD 
BEGCYL ,FMTDPB+12° tty THE CYLINDER FIELD 
#RDHD ,FMTDPB+2 ‘Seu READ HEAD 


MSTACK, SP 
RO,RPO04 60 READ HEADER 


888 888 
sa Fz 
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paar 
~~ 
AVE | 
Wh 


SSSSSSSSAIIZIPIIIgaasgagae 


kk kk le ed ad ed dd 


and aed ad ce ced ad ad edd ed 
SUONAOUSWN—O 
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001374 


005270 
005462 


177577 


001160 
005562 
025564 
005562 
001222 
005326 
001246 
006110 
001370 


001160 


001374 


025574 


001246 


001100 


L 
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GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0037 
FMTDPB sADRS OF PARAMETER TBL 
BR 1$ WAIT 4 QUEUE IS FULL 
2$: TST FMTDPB+16 [WAIT FOR COMMAND TO COMPLETE 
BEQ 2$ BRANCH IF NOT DONE 
BPL 4$ :BR_IF NOT ERROR 
MOV #5$ , SESCAPE :zESCAPE TO 5$ ON ERROR 
JSR PC ,ERINDX 7 SEE a ERROR 
ERROR 10 DRIVE OFFLINE 
ERROR 11 ;PERSISTENT DRIVE UNSAFE ERROR 
ERROR 12 UNCORRECTABLE MASSBUS PARITY ERROR 
ERROR 13 : SOF TWARE TIMEOUT 
ERROR 14 “ sane ERROR 
tM  aecsnia roropavig 1 ‘7 gs aes ERROR A HEADER COMPARE ERROR ? 
ERROR 21 ;CONTROLLER/DRIVE ERROR VERIFYING HEADERS 
3$: CLR SESCAPE eCL EAR THE ERROR ESCAPE ADDRESS 
ERROR 22 sHEADER COMPARE ERROR VERIFYING HEADERS 
JSR PC,LOP.CK >CHECK FOR LOOP ON ERROR 
4$: CMP RBUF ,BUF P 7SEE IF CYL READ EQUALS CYL EXPECTED 
BEQ 6$ BR IF CYL CORRECT 
ERROR 23 :CYLINDER NOT CORRECT 
5$: JSR PC,LOP.CK : CHECK FOR LOOP ON ERROR 
6$: CMP ENDCYL,CYLCK :SEE IF LAST CYLINDER 
BNE 7$ :BR IF NOT FINISHED 
JMP $EOP END OF FORMAT 
7$: INC CYLCK : INCREMENT ree ADDRESS BEING CHECKED 
JSR PC ,UPDACY [SET UP FOR NEXT CYL 
INC FMTDPB+12 SADVANCE TO NEXT CYL 4 
BR 1$ :GO READ NEXT HEADER 


-SBTTL END OF PASS ROUTINE 


SEIU IIIS IOIIIIIOIIOIIOIOISIOIIIIIUIUIDIOIUIUIIOIUIUIIOUIIIUUIOIUD IDR Rh itttttns 
“ RINCREMENT THE PASS NUMBER ($PASS) 

:*IF THERES A MONITOR GO TO IT 
:*IF THERE ISN'T JUMP TO DONE 


SEOP: 
TST MODE "FORMAT' OR *CHECK' MODE ? 
BEQ 3$ :BR IF "CHECK 
TYPE § |MFCMPT "FORMAT COMPLETE’ 
BR 4$ [FINISH THE END MESSAGE 

3$: TYPE § ,MCCMPT > "CHECK COMPLETE 

4$: TYPE NUMERR :*TOTAL ERRORS DETECTED: | ’ 
MOV $ERTTL,-(SP) : 7 SAVE SERTTL FOR TYPEOU 
TYPDS 3 co, TYPE~-DECIMAL ASCII "atm SIGN 
TYPE  ,$CRLF (R= 
INC $PASS £ INCREMENT THE PASS NUMBER 
BIC #100000,$PASS ::DON'T ALLOW A NEG. NUMBER 
DEC (PC)+ + LOOP? 

SEOPCT: .WORD 1 
BGT SDOAGN ti YES 
MOV (PC)+,a(PC)+  ;;RESTORE COUNTER 

SENDCT: .WORD 1 
$EOPCT 


$GET42: MOV a442,RO 3:GET MONITOR ADDRESS 


M 3 
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BEQ $DOAGN ; =BRANCH_ IF NO MONITOR 
RESET +: CLEAR THE WORLD 
SENDAD: ao PC, (RO) 


SDOAGN: 


a(PC)+ 
SRTNAD: DONE 
000001 173474 DONE: + aaa 2 SEE i 0 SET 


003232 MO TASK FOR NEXT DRIVE 

001100 1$: MSTACK, SP SRESET STACK POINTER 

003642 MS :DO THE FORMAT OR CHECK AGAIN 
OUI IOI IOIUIIOIIUIOIIIOIIOIIIUIIIDUIIOIUIIIIIUII tt htt 
-SBTTL SUPPORT SUBROUTINES 
ZOOS IOI IOIISISISIOISIEIIIOIIOIOIDIIOIOIIOIIIOIOIOIIOIOIOIUIIIIIIIOUIDI III Itt 
THIS ROUTINE DETERMINES THE ERROR TYPE 

010146 ERINDX: MOV R1,-(SP) STORE R1 
5001 CLR R1 


00500 :CLEAR R1 

033727 001374 FMTDPB+16,(PC)+ ;CHECK ERROR TYPE 

060006 ° BIT14!BITI3!BIT2!BIT1 ;DRIVE OFFLINE 
5$ 3BR IF OF a 


001025 

033727 001374 FMTDPB+16,(PC)+ ;CHECK ERROR TYPE 

010000 WORD BITi2 :DRIVE PERSISTENTLY UNSAFE 
001020 BR IF UNSAF ‘. 


BN 4$ 
033727 001374 FMTDPB+16,(PC)+ :CHECK ERROR TYPE 
006000 ‘ BIT11!B1T10 {UNCORRECTABLE_MASSBUS PARITY ERROR ? 


BN : 
001374 EMTDPR+ 16 (PC)+ : 
. WORD 9'BITO8 SSOFTWARE TIMEOUT ? 


Bs 7BR IF YES 

001374 FMTDPB+16,(PC)+ ;CHECK ERROR TYPE 
BIT04 ;DRI VE UNSAFE ERROR ? 

INCREMENT THE RETURN INDEX 


RERREEK 
OOWONAUE Ww 


le ed a ad ae ed eed 
oo 
vw 


co 
Ww 
a 


1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 


R1 ;DOUBL NCREMENT 
R1,2(SP) ;DEVELOP THE RETURN ADDRESS 
(SP)+,R1 RESTORE R1 

PC ; RETURN 


sROUTINE TO CHECK FOR LOOP ON ERROR 
032777 001000 173350 LOP.CK: BIT #SWO9,ASWR :LOOP ON ERROR ? 
BEQ 1$ :BR 


001402 IF = 
000177 173312 @$LPERR :GO_TO THE LOOP ON ERROR ADDRESS 
005037 001160 : $SESCAPE CLEAR THe ERROR ESCAPE ADDRESS 


SIBERERSREEEES 
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033727 001374 FMTDPB+16,(PC)+  ;CHECK FOR ‘FATAL’ ERROR 
1894 072002 WORD BIT14!61113!81112'B1T10!B1T01 ;"FATAL’ ERROR BITS 
1895 001004 BN 


$ NOT 
1896 032737 004000 001322 BIT #WLE ,RP.REG+RPER} ;WRITE LOCK ERROR ? 
1897 005620 001402 BEQ 3$ :BR’ IF NOT 

1898 005 00013 2$: JMP SEOP : TERMINATE THE FORMAT 
1899 3$: RTS PC sRETURN 


sTHIS ROUTINE SETS UP THE INPUT TABLE FOR THE DRIVER ROUTINE 


001356 SETTBL: MOVB DRIVE ,FMTDPB SET UP DRIVE # 
CLRB FMTDPB+3 CLEAR HIGH ORDER ADRS BITS 
001362 MOV MWC, FMTDPB+4 LOAD UP WORD COUNT 
001364 #BUFP,FMTDPB+6 LOAD UP CURRENT ADRS 
FMTDPB+10 SET SECTOR TO ZERO 
001367 BEGTRK,FMTDPB+11 ;SET UP STARTING TRK ADRS 
001370 MOV BEGCYL .FMTDPB+12 ;SET UP STARTING CYL 
FMTDPB+16 ;CLEAR RPO4 STATUS 
1230 001236 BEGTRK,TRKCNT SET UP PARTIAL CYL TRACK COUNT 
001232 001234 TTRKS, TTRKSC SET UP TOTAL TRACKS COUNTER 
PC ;RETURN FROM SETUP 


THIS ROUTINE CONTROLS THE DISK ADDRESSING AND TOTAL TRK COUNT 
:1T IS ENTERED AFTER EVERY TRK OPERATION 


SSeS Seg BEE REES 


Noh ehoheohohoheolheh eh e) 
oad a ech ah ad aed ee ech ee 
WONAULSWN—O 


001234 TRKTST: DEC TTRKSC :SEE IF LAST TRACK 
BEQ BRANCH IF LAST TRACK 
001236 + a tian :IS be THE LAST TRACK IN THE CYLINDER ? 


H IF SO 
TRKCNT = COUNT UP_TRACK WITHIN CYLINDER 
FMTDPB+11 : INCREMENT TRACK R 

a3 -UPDATK [UPDATE TRACK ADDRESS IN BUFFER 


3EXIT 
1$: TRKCNT AR TRACK COUNT FOR NEXT CYLINDER 
FMTDPB+11 ;RESET TRACK ADDRESS TO 0 
FMTDPB+12 UPDATE CYLINDER NUMBER 
PC ,UPDACY [UPDATE CYLINDER NUMBER IN BUFFER 
2$: ADD #2, (SP) ADD TWO TO RETURN ADRS 
3$: PC RETURN 


THIS ROUTINE SETS UP WC & BA FOR REMAINING SECTORS 
zsAFTER A WRITE CHECK ERROR 


001254 001362 SCAWC: SAVWC ,FMTDPB+4 ;SET UP WC FOR REMAINING errors 
0 001364 AD #520. ,.FMTIDPB+6 SET UP BA FOR REMAINING SECTOR 
FMTDPB+10 ADVANCE TO NEXT SECTOR IN eL 
SOF Sw SRESET RETRY COUNTER 
PC RETURN TO COMPLETE TRK FORMAT 


3 THIS ROUTINE SETS UP THE CYLINDER ADRS, FORMAT BIT, TRACK AND 
SECTOR ADRS IN MEMORY WITH THE STARTING CYL = TRK INFORMATION 


SETHDR: MOV MAXSEC,R1 SET UP SECTOR C 
MOV #BUFP RO 7SET UP HEADER POINTER IN RO 
MOV BEGCYL ,R2 PUT STARTING CYL # IN R2 
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013703 001230 BEGTRK,R3 sPUT_ STARTING TRK # IN R3 
000303 R 7 JUSTIFY TRACK_ADRS 
001264 SEC20 7SEE IF 20 7 m3 SECTOR MODE 
1$ BR IF 20 SECTOR MODE 
010000 #10000 ,R2 3 SEY _THE 23 SEC ECTOR FORMAT BIT 
: WRITE IN HEADER AREA OF CORE THE CYL ADRS 
WRITE IN HEADER AREA OF CORE THE TRK ADRS 
CLR 1ST KEYWORD 
0 -CLR 2ND_ KEYWORD 
001002 ;SET UP FOR NEXT HEADER 
R3 [UPDATE SECTOR ADRS FOR NEXT HEADER 
;MAIN ECTORS 


: SECTOR 
EXIT = HEADERS ARE LOADED INTO CORE 
; THIS ROUTINE UPDATES THE CYLINDER ADRS OF THE HEADER WORDS IN CORE 


001266 ; MAXSEC ,R1 SET UP SECTOR COUNT 
025574 MOV < RO SET UP HEADER POINTER IN RO 
1$: (RO) + : INCREMENT FOR NEXT CYLINDER 
177400 #177400, (RO) ZRESET TRK ADRS TO 0 
001006 #918. .RO SET UP FOR NEXT HEADER 
[COUNT SECTORS 
"$ BRANCH IF NOT LAST SECTOR 
PC EXIT 


THIS ROUTINE UPDATES THE TRACK ADRS OF THE HEADER WORDS IN CORE 


001266 : MAXSEC ,R1 SET UP SECTOR COUNT 
025574 MOV MBUFP,RO . SET UP HEADER POINTER IN RO 
(RO) + ;POINT HEADER POINTER TO TRK - SEC ADRS 
000400 : #400, (RO) : INDEX TRK ADRS 
0°1010 #920. .RO SET UP +e NEXT HEADER 
1$ sBRANCH IF "NOT LAST SECTOR 
PC EXIT 


sROUTINE TO CHECK FOR KW11-L OR KW11-P CLOCKS 
000004 ST.CLK: MOV ASTCLK1,@#ERRVEC ;SET UP VECTOR FOR P CLK 
‘CLR ERRVEC+2 NEW PSW 


:CHECK FOR KW11-P 
:VECTOR ADDRESS 
000000 ACLOCK, a(SP) ‘SET UP KW11-P VECTOR 
SP5 ‘POINT TO PSW 
:PSW = PRI 6 
172742 1,a$LKCSB ‘LOAD COUNTER BUFFER 
172732 #1359 :SET CLK = CNT UP 


BR 
STCLK1: #4, SP ;RESTORE THE STACK POINTER 
000004 MO #STCLK2,@MERRVEC :CHANGE ERROR VECTOR 
aSLKS :LOOK FOR KW11=L 
SIL VEC, -(SP)  :KW11-L VECTOR ADDRESS 
ACLOCK,a(SP) § :SET UP KwWi1-L VECTOR 
#2, (SPS : INCREMENT VECTOR ADDRESS 
#PR6,a(SP)+ *PSW = PRI 6 


SRESRERES 


& 


ed a a cd a a ee ld lh el 
ow 


0.0 
NN 
—_ 





On 
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012777 000100 172672 MOV #100,a$LKS 
000402 BR STCLK3 
000004 STCLK2: ADD 


062706 #4 ,SP 
012737 000006 000004 STCLK3: MOV #6 , AAERRVEC 
000207 RTS PC 


:SET KW11=L INTERRUPT ENABLE 


;RESTORE THE STACK POINTER 
RESTORE THE ERROR VECTOR 


:THIS CODE SERVICES A CLOCK INTERRUPT EVERY 16MS 


012746 000020 CLOCK: MOV #16. ,~(SP) 
004737 016744 {7 PC,RPTMR 


PUT MILLISECONDS ON THE STACK 
a4 REPORT TIME 
sRETURN AND CONTINUE 


ROUTINE TO INTERCEPT ‘CONTROL C* TYPED DURING PARAMETER ENTRY TIME 


001100 OENTER: MOV ASTACK, SP 
012406 1$: TST TRNSWT 
BNE 
RESET 
003176 JMP M1B 


INITIALIZE THE STACK 
ZALL PNT STOPPED ? 


;CLEAR THE BUS 
[START AGAIN WITH DRIVE SELECTION 


sROUTINE TO TYPE THE PRESENT DISK ADDRESS. ENTERED BY TYPING ‘CONTROL C' 


177776 TYPADR: CLR PSW 
001300 MOV MOENTER, CNTLC 
-ADDRIS 


C 
FMTDPB+12,-(SP) 
PC, $SB2D 


<(SP) 
FMTDPB+11, (SP) 
PC,$SB2D 


sSET PROCESSOR TO PRIORITY 0 


[CHANGE "CONTROL C' eo ADDRESS 


Pt see! ADDRESS IS 


";PUT THE CYLINDER ADDRESS ON THE STACK 
:CONVERT IT TO DECIMAL 


PC; SSUPRS ;TYPE_IT 
insP i SPACES 


*CLEAR THE STACK 
:PUT THE TRACK ADDRESS ON THE STACK 
‘CONVERT IT TO DECIMAL 


one :TYPE IT 


-$CRL 
001300 MOV MTYPADR, CNTLC 


PARAMETER ENTRY ROUTINE 
> CALL 


#ADR ,R3 
PC ,PARENT 


R3,-(SP) 
ATABLE ,R3 
(R3)+, 3$ 

9$ 


0 

(R3)+,R2 
(R3)+,R5 
(R5) ,-(SP) 


021271 ~ SLASH 


7 CR-LF 
RESTORE ENTRANCE TO THIS ROUTINE 
RETURN 


PARAMETER TABLE ADDRESS 
GET THE PARAMETERS 


SAVE R 


R3 
TER TABLE sage 


: T 
[CURRENT VALUE OF PAR 


AMETER 
: TYPE | THE CURRENT VALUE OF THE PARAMETER 


/ 
“READ THE KEYBOARD 





an 
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2061 012601 (SP)+,R1 : INPUT ASCII Her ss ADDRESS 
206 Oke: 006726 R5,CK.DIG CHECK THE DIGIT(S) 
1$ [CARRIAGE RETURN ONLY ENTERED 
PERIOD ONLY ENTERED 
LLEGAL INPUT 
; TERMINATED rn ba r CARRIAGE RETURN 
: TERMINATED WITH 
: TERMINATED WITH A — 
5$: R2,(R5) ;MOVE NEW VALUE TO PARAMETER LOCATION 
BR 1$ GET MORE PARAMETERS 
022036 6$: -BADENT ; "BAD ENTRY’ 
000006 UB #6,R3 ORY AGAIN THE TABLE POINTER 


BR 1$ ; TRY 
7$: R2,(R5) ;NEW VALUE 
9% XIT 


8$: ATABLE ,R3 ZRELOAD THE PARAMETER TABLE ADDRESS 
BR 1 AGAIN 


9$: (SP) +,R3 RESTORE R3 
PC RETURN 


+ THIS ROUTINE IS USED TO CHECK IF AN 
— CHARACTER IS A DIGIT BETWEEN 0 AND 7. 


MADR ,R1 sADDRESS OF ASCII CHARACTER 
CHECK THE CHARACTER 
: CHARACTER IS NOT es 0-7 
: CHARACTER IS IN R2 AS A 
ZOCTAL DIGIT 


000060 -OCT: (R1) ,4°0 sLESS THAN ZERO? 
B 1 ;YES == BRANCH 
000067 ° ; GREATER THAN SEVEN? 
1$ ;YES -- BRANCH 
3GET THE CHARACTER 


177770 e :STRIP AWAY THE ASCII 
: ADJUST FOR RETURN 
1$: ;RETURN 


sTHIS ROUTINE IS USED TO CHECK AN ASCII CHARACTER 
7 latte IF IT IS A DIGIT BETWEEN 0 AND 9. 
MADR ,R1 sADDRESS OF ASCII CHARACTER 
CHECK THE CHARACTER 
;NOT BETWEEN 0 AND 9 
;BETWEEN 0 AND 9 
Re = DIGIT 
(R1) ,4°0 ue) THAN sl 
(R1),4'9 
1$ 
OL phe 
*0.R 


S&S 


HARACT 
‘STRIP AWAY THE ASCII 
‘aeses ‘ADJUST FOR RETURN 
RS RETURN 


ad aad ane eed ed end ed 
AUnSWrH-oO 





On 
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Mm 
— 
—_ 
~N 


THIS ROUTINE te CHECK AN ASCII CHARACTER TO 
; DETERMINE WHAT IT IS. 


MADR ,R1 sADDRESS OF ASCII CHARACTER 
a CHECK CHARACTER 


; [UNKNOWN CHARACTER 

: CARRIAGE RETURN * (R1)=ADR+1 
: COMMA * (R1)=ADR+1 

: :PERIOD * (R1)=ADR+1 


CONAUSWI—O O00 


N 8 AND 
:R2 = DIGIT * MRIS SADRS1 
CK. CHR: 3" "CARRIAGE RETURN’ ‘? 
BE 3$ ;YES BRANCH 


wr 
2 
oO 


POPOMIMNMNPYNoNofoNoNnononononsferonofry 
-O— 
SNSns 
On —n - 


ee ee DD a ed ad ad od od 
NOW 
NO NNN 


a 


:DIGIT BETWEEN 8-9 
:DIGIT BETWEEN 0-7 
RIOD 


: COMMA 

; CARRIAGE RETURN 

SMOVE POINTER TO NEXT CHARACTER 
UNKNOWN CHARACTER 


RETURN 


: THIS ROUTINE CHECKS AN ASCII STRING FOR LEGAL 
—e AND FORMS A DECIMAL VALUE BINARY NUMBER IN R2. 


; :ADDRESS OF _ASCIZ_ STRING 

; MAGNITUDE OF INPUT NUMBER 

; 3CHECK DIGITS 

; ADR1 SCR’ ONLY ENTERED ~~ R2=0 

; :*PERIOD’’ ONLY ENTERED -- R2=0 

; ILLEGAL CHARACTER OR INPUT TOO LARGE -~ R2=? 
; sl NUMBER 

; :COMMA'' =~ R2_= NUMBER 

; :"PERIOD'* -- R2 = NUMBER 


CK.DIG: . sSAVE R4 
MO ;SAVE R3 
7SAVE THE MAX. SIZE ON THE STACK 
;START WITH 0 


R4 

R5,CK.CHR ;CHECK ONE CHARACTER 
ILLEGAL CHARACTER 
ZCARRIAGE RETURN 


’ e 
off ee 
e . 
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DIGIT 0-7 

DIGIT 8-9 
#4 ,R5 ;STEP_ RETURN POINTER PAST ''CR'' & ‘PERIOD'’ RETURNS 
R3 NPUT NUMBER *2 


A | 
R3,~(SP) :SAV E *2 
R3 


R3 fe 
(SP)+,R3 + (42) +(*8) = *10 
R2,R3 ;UPDATE THE INPUT NUMBER 
R5,CK.CHR ;CHECK ONE CHARACTER 
7 ILLEGAI CHARACTER 
: CARRIAGE RETURN 


at 0-7 
:DIGIT 8-9 
;DOES Auer FOLLOW THE ‘PERIOD’ 


; INCREMENT THE RETURN 


et od 2 od 2) 2) J) 
VRARRAVLS ISIN 


MNMNNMNNNNNyNy 


[CHECK THE MAGNITUDE OF THE NUMBER 
7BR_IF ENTERED NUMBER TOO LARGE 
BYPASS INCREMENT 

: INCREMENT RETURN PAST INVALID RETURN 
INCREMENT RETURN 

> SETUP yr POINTER 

ENTERED VALUE 
; CLEAN MAX. SIZE OFF OF STACK 
RESTORE R3 

TRESTORE R4 

ZGET RETURN ADDRESS 

RETURN 


-SBTTL MACRO ROUTINES 


-SBTTL ERROR HANDILER ROUTINE 


COIS IOISIIOIOIDIOIOIOISIOIIIOIOIOIOIOIOIOIOIOIOIOIIOI IT I TTT ITT TOT TT OTT I TTL 
SRTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
:*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
:*AND GO TO TYPERR ON ERROR 
>*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

;*SW15=1 HAL OR 


; T ON ERR 
3*SW13=1 INHIBIT ERROR TYPEOUTS 
3 *SW10=1 BELL ON ERROR 
3 *SWO9=1 LOOP ON ERROR 


N :ERROR=EMT AND N=ERROR ITEM NUMBER 


4407 TEST FOR CHANGE IN SOF T~SwWR 

7 ROIS R1,DDRIVE :DRIVvE ADDRESS IF DRIVE ERROR CALL 
001276 TT TTENTION REGISTER CONTENTS 

3 001370 001270 FMfDPB+12, DS.CYL” AT CURRENT CYLINDER ADDRESS 
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113737. 001367 001272 FMTDPB+11,DS.TRK ;REQUESTED TRACK ADDRESS 

001312 RP. REG+RPBA :NON=ZERO BUFFER ADDRESS ? 
7$ *BR IF NO BUFFER ADDRESS 

001312 RP. REG+RPBA,=(SP)  ;BUFFER ADDRESS 

000002 :DECREMENT THE ADDRESS 
ateP)e, $GDDAT :GET THE BUFFER WORD WHICH DIDN'T COMPARE 
SERFLG :2SET THE ERROR FLAG 
$ ON'T LET THE FLAG GO TO ZERO 

171772 $STSTNM,@DISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG 

#31710, @SWR ; SBELL ON ER ROR? 


- SKI 
, SBELL ; RING a 
SERTTL COUNT THE NUMBER OF ERRORS 
a site 7:GET ADDRESS OF ERROR INSTRUCTION 
@SERRPC,SITEMB ;;STRIP_AND SAVE THE ERROR ITEM CODE 
#B1T13,aSWR :sSKIP TYPEOUT IF SET 
20$ 33SKIP_TYPEOUTS 
we :2GO TO USER ERROR ROUTINE 


e 


171704 5g: @SWR ; HALT ON ERROR 
3$ 2 SKIP IF CONTINUE 
HALT ON ERROR! 
3:TEST FOR CHANGE IN SOFT-SWR 
001000 171670 3$: #B1T09,aSWR a cata SWITCH SET? 


001110 $LPERR, (SP) SIFUDGE RETURN FOR LOOPING 


001160 4$: SESCAPE ::CHECK FOR AN ESCAPE ADDRESS 


001402 5$ :7;BR IF NONE 
013716 001160 “ SESCAPE,(SP) | ::FUDGE RETURN ADDRESS FOR ESCAPE 
000002 ; RETURN 


THIS ROUTINE USES THE ‘ITEM CONTROL BYTE’’ ($ITEMB) TO DETERMINE 
sWHICH ERROR IS TO BE REPORTED, IT THEN OBTAINS, FROM THE ‘ERROR 
;TABLE’’ (SERRTB), AND REPORTS THE APPROPIATE INFORMATION 
[CONCERNING THE ERROR. 


TYPERR: SAVREG SAVE RO-R5 
CLR RO [CLEAR RO FOR ERROR NUMBER 
$ITEMB,RO ;ERROR NUMBER 
a :FORM INDEX FOR ERROR TABLE 


RO 


RO 
001630 : #$SERRTB RO FORM ADDRESS 
007332 MOV (RO) +, 2$ 7GET ERROR MESSAGE oe POINTER 
3 BRANCH IF THERE ISN'T ONE 
001167 -SCRLF ;"'CARRIAGE RETURN = LINE FEED 


: . 0 ;‘'EM’’ POINTER GOES HERE 
007350 : V (RO) + ,4$ PICK UP DATA HEADER (DH) POINTER 
E BRANCH IF NONE 
001167 - SCRLF CARRIAGE RETURN-LINE FEED 
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4$: ° 0 :'DH"* POINTER GOES HERE 
5$: ;PICKUP DATA TABLE (DT) POINTER 
20$ ;BRANCH IF NONE 
+ AF INDENT SWITCH 
;DATA FORMAT (DF) POINTER 


[NUMBER OF DHS TO TYPE 
BRANCH 4 DH NUMBER IS 0 


R5 :NO_INDEN 
001167 CARRIAGE RETURN-LINE FEED 
: VB [NUMBER OF DATA WORDS TO TYPE 
AND HOW TO TYPE THEM 
sOCTAL OR DECIMAL? 
IMAL 


12$ ~-BRANCH 
a@(R1)+,-(SP) ; SAVE @(R1)+ FOR TYPEOUT 
13$ 22GO TYPE--OCTAL ASCII(ALL DIGITS) 


a(R1)+,-(SP) 7sSAVE a(R1)+ FOR TYPEOUT 
2360 "deems tet wee WITH SIGN 
;MORE NUMBERS TO TYPE? 


:NO=-BRANCH 
021305 7 YES--TYPE SEPERATORS 
BR 11$ ; 


zL 
MORE DH'S? 
LE 2 3NO-=BRANCH 
001167 7 YES--START A NEW LINE 
000002 (RO) SONLY A 'DH* IN THIS REQUEST ? 
Simoes ~ BYPASS THE INDENT 


3NO--BRANCH 
021305 -LINSP $4 i gw hin, SPACES 
007464 MOV GET NEXT DH 
SAND TYPE IT 
:DH POINTER | GOES HERE 
sTYPE A "DT* 
:BR IF A "DT 
000004 : INCREMENT THE ‘DF* POINTER 
BR 14$ 7SEE IF END OF "DF* BLOCK 
001167 21$: Fe cONDENTS RETURN-LINE FEED 


10$ :NO--BRANCH 
021305 17$: we SPACES 
BR 10$ 
20$: RE STORE RO-R5 
RTS P ;RETURN 


-SBTTL TYPE ROUTINE 


ett PTT P iti rit iii ii titi titi tii tit ttt ttt itt 

‘ FROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 aH F 

2 * THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED 

;*NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
$FILLC CONTAINS THE CHARACTER TO rote AFTER, 
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105737 
100002 


001350 
013746 
105366 
002770 
004737 
105337 
000770 


112716 
737 


MACY11 thei 
11:23 


001157 


171252 


000002 
000015 


007736 
000012 


007736 


171244 
000002 


000002 


we wane 
ROUT INE 


3*CA 
YPE 


TYPE 
MES/DR 


sHORIZONTAL TAB 


8$: 
9$: 


STYPEC: 


I 
14:10 PAGE 49 


L: 
ze) er: A TRAP INSTRUCTION 


-ME SADR 


STPFLG 
1$ 


3$ 
RO,-(SP) 
a2(SP),RO 
(RO) +,=(SP) 
4$ 

(SP) + 
(SP)+,RO 
#2, (SP) 
HHT, (SP) 
ACRLF , (SP) 
5$ 


(SP) + 


SCHARCNT 
2$ 


PC,S$TYPEC 
: aaa aati 


$ 
$NULL ,~ (SP) 
1(SP) 
6$ 
PC,$TYPEC 
SCHARCNT 

7$ 
PROCESSOR 
#* ,(SP) 
PC,$TYPEC 
#7 , SCHARCNT 
9$ 

(SP)+ 

2$ 
a$TPS 
$TYPEC 
2(SP) ,aSTPB 
telat 
SCHARCNT 


STYPEX 
ALF, (SP) 





i:MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


iTS i A TERMINAL? 


;BR IF 
ZiHALT WERE IF NO TERMINAL 


+: SAVE RO 

3:GET ADDRESS OF ASCIZ STRING 

;2PUSH CHARACTER TO BE TYPED ONTO STACK 
32BR IF IT ISN'T THE TERMINATOR 

321F TERMINATOR POP IT OFF THE STACK 
7zRESTORE RO 

+34 RETURN PC 


ee N 
3; ;BRANCH IF <HT> 
:;BRANCH IF NOT <CRLF> 


7zPOP <CR><LF> EQUIV 
72 TYPE A CR AND LF 


:=CLEAR CHARACTER COUNT 


S IT TIME FOR fn CHARS. ? 
THIF NO GO GET NEXT CHAR 
2éGET # OF FILLER CHARS. NEEDED 
3 THE NULL CHAR. 
2 sDOES A NULL NEED TO BE TYPED? 
IF NO--GO POP THE NULL OFF OF STACK 
£260 TYPE A NULL 
+t Aad COUNT AS A COUNT 


;-REPLACE TAB WITH SPACE 
23 TYPE A SPACE 
; BRANCH By NOT AT 
32TAB STOP 
 3POP oe OFF STACK 


NEXT CHARACTE 
::WAIT UNTIL PRINTER IS READY 


:zLOAD CHAR TO BE TYPED INTO DATA REG. 
221S Lege Be A CARRIAGE RETURN? 


H IF NO 
i YES“-CLEAR CHARACTER COUNT 
2721S CHARACTER A LINE FEED? 
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007732 001402 


007734 105227 
007736 000000 
007740 000207 


010165 


010165 
010167 
010164 


id oar 14:10 PAGE 50” 
ROUT INE 


BEQ 


INCB 
SCHARCNT : .WORD 
$TYPEX: RTS 


STYPEX 
(PC) + 


PC 


; BRANCH IF YES 
3:COUNT THE CHARACTER 
3 CHARACTER COUNT STORAGE 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


OIRO IIIIISIDIOIIOIOIOISIOIIIIIOISIOIIIOIOIOIIOIOIOIDIDIOIOIUIOIIIIDIDIOI III IOI III IIE 
SS THIS ROUTINE IS USED TO — A 16-BIT BINARY NUMBER TO A 6-DIGIT 
>*OCTAL (ASCII) NUMBER AND TYPE IT 
i sSTYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
* te 


NUM, =(SP) ; NUMBER TO BE TYPED 
3:CALL_FOR TYPEOUT 
¢éN=I TO 6 FOR NUMBER OF DIGITS TO TYPE 


321=TYPE LEADING ZEROS 
;:0=SUPPRESS LEADING ZEROS 


** 

** 

N 
ie M 
** 

** 

** 
;*$TYPON=---ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
** 

** 

** 

** 

** 

2 © 

t* 


$TYPOS OR $TYPOC 

CALL: 
MOV ; ;NUMBER TO BE TYPED 
TYPON 7:CALL FOR TYPEOUT 


ae HERE FOR TYPEOUT OF A 16 BIT NUMBER 
NUM, - (SP) 


NUM, ~(SP) 


; ;NUMBER TO BE TYPED 
7:CALL FOR TYPEOUT 


:sPICKUP THE MODE 

:zLOAD ZERO FILL SWITCH 

2 ;NUMBER OF DIGITS TO TYPE 
: sADJUST RETURN ADDRESS 


3sSET THE ZERO FILL SWITCH 
2-SET FOR SIX(6) DIGITS 
et ITERATION COUNT 


* 


$TYPOS: @(SP) ,~(SP) 


; R5 
SIGET THE NUMBER OF DIGITS TO TYPE 


2 SUBTRACT IT FOR MAX. ALLOWED 
SAVE IT FOR USE 
SIGET THE ZERO FILL SWITCH 
arg THE INPUT NUMBER 
LEAR THE OUTPUT WORD 
; ROTATE MSB INTO ‘'C** 


:GO DO MSB 
>:FORM THIS DIGIT 


::GET LSB OF THIS DIGIT 
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105337 010166 SOMODE 23 TYPE THIS DIGIT? 
100016 BPL $ :BR_IF NO 
177770 #177770,R3 33GET RID OF JUNK 
4$ T FOR 0 
sr yess 0? 


::DON'T SUPPRESS ANYMORE 0'S 
3eMAKE THIS DIGIT ASCII 
: MAKE mt we NOT ALREADY 
7 SAVE F YPING 
,8$ :360 TYPES THIS DIGIT 
010164 : ::COUNT BY 1 
T 2s 2 <BR 4 MORE TO DO 


ON 
7 INSURE LAST DIGIT ISN'T A BLANK 
72GO DO THE LAST DIGIT 
TORE R5 


33 TORE R3 
000004 33SET THE STACK FOR RETURNING 
(SP)+. (SP) 
7 RETURN 


8$: + ¢ STORAGE FOR ASCII DIGIT 
: TERMINATOR FOR TYPE ROUTINE 
SOCNT: . ;:0CTAL DIGIT COUNTER 
SOF ILL: 0 ZERO FILL SWITCH 
SOMODE: .WORD 0 > ZNUMBER OF DIGITS TO TYPE 


-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


DIDO III ISIOISIDIIOISISIIISIDIIOIOISIIOISIOIIOIDIOIOIOIIOIOIOIO IOI OTITIS TT TIE 
SETHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 

= *SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
;*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
>*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 

> *REPLACED WITH SPACES. 


> *CALL 


;* MOV NUM ,=(SP) ;sPUT_THE BINARY NUMBER ON THE STACK 
“ed ::GO TO THE ROUTINE 


010170 $TYPDS: 

RO,~(SP) :zPUSH RO ON STACK 

+ ¢PUSH R1 ON STACK 

ate ot R2 ON STACK 

: ON STACK 

R5,~(SP) PUSH RS ON STACK 
020200 SET BLANK ay Hy AND SIGN 
000020 20(SP) ,R5 T NUMBER 


R- tf: BINARY NUMBER POS. 
000055 #'=,1(SP) $3 E ASCII NUMBER NEG. 
1$: RO :2ZERO THE CONSTANTS INDEX 
010404 #$DBLK ,R3 ::SETUP THE OUTPUT POINTER 
000040 #* ,(R3)+ 2eSET ne FIRST CHARACTER TO A BLANK 
AR THE BCD NUMBER 


1 : R 
010240 0 010374 $DTBL(RO),R1 3:GET THE CONSTANT 
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010244 


000001 177777 
000060 


3$: 


slant ain 


L 
14:10 PAGE 52 


ONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


SUB 
BLT 
INC 
BR 


4$: 


R1,R5 
4$ 

R2 

3$ 
R1,R5 
R2 

5$ 
(SP) 
7$ 
(SP) 


oe THIS BCD DIGIT 
7: INCREASE THE BCD DIGIT BY 1 


:-ADD BACK THE CONSTANT 
rigs IF BCD DIGIT=0 
cFA HROUGH IF 0 


fi STILL "DOING LEADING 0'S? 
; «BR IF YES 


SEQ 0050 


6$ iF NO 

1(SP) ,=1(R3) SIYES=-SET T HE SIGN 
6$: #'0,R2 :3MAKE THE BCD DIGIT ASCII 

000040 : #' “RO MAKE IT A SPACE IF NOT ALREADY A DIGIT 

MOVB S[PUT THIS CHARACTER IN THE OUTPUT BUFFER 
+: JUST INCREMENT ING 
i? CHECK THE TABLE INDEX 
0 D0 0 THE NEXT DIGIT 


000010 


; TO ASCII 
; WAS yp LSD THE FIRST NON-ZERO? 


F NO 
7IYES=-SET THE SIGN FOR TYPING 
:2SET THE TERMINATOR 


177777 177776 -1(SP) ,-2(R3) 
(R3) 

(SP)+,R5 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 

- SDBLK 

2(SP) ,4(SP) 
(SP)+, (SP) 


010404 
000002 000004 


E 
S PADJUST THE STACK 
; RETURN TO USER 


$DTBL: 


$DBLK: .BLKW 4 
.SBTTL TTY INPUT ROUTINE 


5 ARR RRARREEER EE R EE EEKERERRERERAEREREREREEEREKEEEEREERKEKERE 


; NUMBER OF ITEMS IN QUEUE 
32 INPUT POINTER 
:sQUTPUT POINTER 
:2TTY KEYBOARD QUEUE 
STKQEND=, 
-EVEN 


:*TK INITIALIZE ROUTINE 
¢*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
:*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


S*CALL: 
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INPUT ROUT] SEQ 0051 


PC,$TKINT 


STKCNT CLEAR COUNT OF ITEMS IN SS 

#STKQSRT ,STKOQIN 3 IMOVE THE STARTING ADDRESS OF THE 
STKQIN,$TKQOUT ;;GUEUE INTO THE INPUT & OUTPUT POINTERS. 
#STKSRV ,AATKVEC i :INITIALIZE r KEYBOARD VECTOR 


010416 
010420 
000060 


010502 
0105 


010552 
010554 


117746 


170440 
177600 
000003 


011615 
010432 
170542 
000007 


000176 


000007 
001162 


000023 
170336 
170330 
170324 
177600 
000021 
000100 
010414 
000140 
000175 
000040 


170444 


001140 


010414 


170302 


#200 ,@A#TKVEC+2 
a$TKB 


#100,a$TKS 
PC 


:*TK SERVICE ROUTINE 


>*THIS ROUTINE Ae tn SERVICE THE 


>*BY READING T 


77CLEAR DONE FLAG 
7 ENABLE TTY KEYBOARD INTERRUPT 
:sRETURN TO CALLER 


TTY KEYBOARD INTERRUPT 


CHARACTER FROM THE INPUT BUFFER AND PUTTING 


:*IT IN THE QUEUE. 


IF THE CHARACTER IS A ‘'CONTROL-C'' (*C) $STKINT IS CALLED AND 
; *UPON RETURN EXIT IS MADE TO THE ‘'CONTROL=C** RESTART ADDRESS (@CNTLC) 


$TKSRV: MOVB 
BIC 


a$TKB,-(SP) 
#°C177, (SP) 
(SP) #3 

1$ 


-SCNTLC 
PC, S$TKINT 
(SP) + 


a@cNTLC 
(SP) ,47 
2s 


AMSWREG, SWR 
6$ 


#7 ,STKCNT 
3$ 


1 
a$TKB,-(SP) 
#°C177, (SP) 
(30). H21 
#100, a$TKS 


STKCNT 
(SP) ,#140 


fr) A175 
#40, (SP) 


3sPICKUP_THE CHARACTER 
2:zSTRIP THE JUNK 
ee1S IT A_ CONTROL C? 


CH IF NO 
iE TYPE A CONTROL=C (“C) 
KEYBOARD 


3-CONTROL C RESTART 
;21S IT A CONTROL G? 


3 CH IF NO 
21S SOFT-SWR SELECTED? 
:2GO TO SWR CHANGE 


2i1S ed ee FULL? 


F_NO 
77RING THE TTY BELL 
ee CHARACTER OFF OF STACK 


35]8 IT DD eatin 


CH NO 
i DISABLE TTY KEYBOARD INTERRUPTS 
AN_CHAR OFF STACK 
;:WAIT FOR A CHAR 
+ ¢LOOP UNTIL ITS THERE 
22GET THE CHARACTER 
MAKE IT 7-BIT ASCII 
HHS Al A_CONTROL-Q? 


ee H IF _NO 
:ERETURN TTY KEYBOARD INTERRUPTS 


ee H 
::MAKE IT UPPER CASE 
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112677 4$: MOVB (SP)+,@$TKQIN ;;AND PUT_IT IN QUEUE 
005237 INC $TKQIN : SUPDATE THE —— 
023727 010431 CMP $TKQIN,ASTKQEND 3360 As THE END 

001003 5$ 

012737 


BNE H_IF NO 
010416 MOV #$TKQSRT ,STKQIN ‘eRESET THE POINTER 
010716 000002 5$: RTI 7 sRETURN 


CRRA ISIISIISIIOIIOIIOIIIOIIOIIUIOIIOIUIIIII I I Rt 
: #596 PWARE SWITCH REGISTER CHANGE ROUTINE. 
R@UTINE IS ENTERED FROM THE TRAP HANDLER, 


AND WILL 
jsSERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 


WHEN OPERATING IN TTY INTERRUPT MODE . 
010720 022737 000176 001140 écKsun MP ASWREG, SWR S THE SOFT-SWR SELECTED 
1124 * BNE T IF NOT 
170210 asTKS 
BP 1 


5% 
170204 a$TKB,-(SP) 
177600 #°C177, (SP) “MAKE IT 7=BIT ASCII 
000007 (SP) #7 t:1S IT A CONTROL-G? 
010752 001300 2$ IF NOT. PUT IT IN THE TTY QUEUE 


SEQ 0052 


DIR IOI III III ICICI ORI IOI III III IO IAT IAT SOAS IANS ISI SAS SISA AAA 

: CONTROL IS PASSED TO THIS POINT FROM EITHER . TTY rwrg’t SERVICE 

:*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER T ALL, AS A RESULT OF A 

;*CONTROL-G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 
010754 123727 001134 000001 é$: CMPB $AUTOB, 41 Se WE ory IN AUTO-MODE? 


oOoo°o°o 
od and and aad oe 


117746 
042716 


021627 
00 


(SP) + 

PC ,$TKINT 
a$TKS 
#1,SINTAG 
-SCNTLG 

, SMSWR 
SWREG,~(SP) 
- SMNEW 
-(SP) 


-(SP) 
a$TKS 
7$ 


001135 


@$TKB,-(SP) 
#°C177, (SP) 


(SP) ,43 
9$ 

-SCNTLC 
#6,SP 
SINTAG,41 
#100, a$TKS 
acNILe 


000001 
170040 


CH IF YES 
AR ee tt OFF STACK 
NPUT 


32SET INTERRUPT MODE INDICATOR 


a THE CONTROL-G (*G) 
YPE CURRENT CONTENTS 
1S SAVE SWREG FOR TYPEOUT 
2260 in oak tani alae DIGITS) 


::1F NOT TRY AGAIN 


:2PICK UP C 
:sMAKE IT SBIT ASCII 


siIS ITA FONTROL=C? 
CH IF NO 
77YES, ECHO CONTROL-C (*C) 
7-CLEAN UP STACK 
pa erene TTY KEYBOARD INTERRUPTS? 


: BRANCH IF NO 
;:ALLOW TTY KEYBOARD INTERRUPTS 
2-CONTROL=C RESTART 
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NAN Nad i A pert tetany hehe 
NNVOUIVI Ww 
RUSNSVSEVURORKKS AMALO 


MMVN-— 
ANoOsMW 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


et = =) 2) = 28d 2 8a) 2) 2 2 2 2d es 
eed od 3) =) =) od 2) 2 = 2d 2d 6 6 3 2 8 
™m 


EN 


011260 


NER 


™~ 
Oo 


lelelejlejleleolelelelele) 
ek eee oa a a cae ed acd ed ee 
GUaREBENTER 


wa 
Os 


021627 
001005 


MACY11 SE? 
11:23 


000025 
011622 
000006 


000015 
00004 
000002 167766 


000006 
001167 
001135 000001 


000100 167744 
007672 
000060 
000067 
000060 
000002 


000002 
177776 
001166 


000004 
000004 
011306 
010414 


010414 
177074 000004 


B 
na ke 14:10 PAGE 55 
INPUT ROUTINE 


9$: im) Ae 
/SCNSLU 
#6, SP 
9$ 
SP) ,415 
4 
(SP) 
1$ 
(SP) ,@SWR 
-SP 
$CR 
STNTAG. #1 
15$ 
#00, aSTKS 


PC ,$TYPEC 
(SP) ,460 
8$ 


, 
(SP) ,467 
#60, (SP) + 
2(SP) 


17$: 2(SP) 
-2(SP) , (SP) 
BR $ 
18$: , SQUES 

BR 20$ 
-DSABL LSB 


2i1S IT A_CONTROL=U? 
ee CH IF NOT 


77YES, ECHO CONTROL=-U (“U) 
+ IGNORE PREVIOUS INPUT 
7Z;LET'S TRY IT AGAIN 
3718S IT A <CR>? 
; BRANCH IF NO 
3zYES, IS IT THE FIRST CHAR? 
3 CH IF YES 
+ sECHO <CR> AND <LF> 
-ENABL a KBD INTERRUPTS? 
TTY KBD INTERRUPTS 


7: SIMULATE CONTROL-U 


FRR KR EKER KEE EEK KEKE EEK 


TRTHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


;*CALL: 

: RDCHR 

3 RETURN HERE 

SRDCHR: (SP) ,~(SP) 

MO 4(SP) ,2(SP) 

4(SP) 
~(SP) 
#64$,-(SP) 


bared 
1$ 


oe A A CHARACTER FROM THE QUEUE 
HARACTER IS ON THE STACK 
MITA PARITY BIT STRIPPED OFF 


a a THE PC AND 
::GET READY FOR A CHARACTER 
: PUT NEW PS ON STACK 

‘PUT NEW PC ON STACK 
7zPOP NEW PC AND PS 


::WAIT ON A CHARACTER 
:DECRE-ENT THE COUNTER 


$TKCNT 
@$TKQOUT ,4 (SP) HIGET ONE CHARACTER 


SEQ 0053 





on 


CZRJBDO, RPO4/5/6 FMTR_ MACY11 sentebisianca Sana x 14: ys PAGE 56° 
CZRJBD.P11 28-MAR-79 11:23 Y INPUT ROUTINE SEQ 0054 


005237 010420 INC $TKQOUT ; UPDATE THE POINTER 
Beaeee 010420 010431 CMP rs -ASTKQEND ;2D1D IT GO OFF OF THE END? 


001003 BNE CH IF NO 
012737 010422 010420 MOV A#STKQSRT, $TkaOUT’ gRESET THE POINTER 
000002 2s: RTI ; sRETURN 


PTT ITITITIITITITITI TIT L LITT LITT TT TTT ELIT TIT TTiTTT Titi TTT 


:*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


>*CALL: 

; RDLIN : INPUT A STRING FROM THE TTY 

;* RETURN HERE ; ZADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
‘7 2; TERMINATOR WILL BE A BYTE OF ALL O'S 


011352 SRDLIN: R3,~(SP) 
C -(SP) 


1$: ASTTYIN,R3 
2$: MSTTYIN+7 ,R3 ; ;BUFFER FULL? 
4$ 72BR IF YES 
:GO_ READ ONE CHARACTER FROM THE TTY 
(SP) +, (R3) ZiGET CHARACTER 
oft. (R3) 71S ‘ A_RUBOUT 


:-BR IF NO 
(SP) 7231S THIS THE FIRST RUBOUT? 

6$ :-BR_IF NO 
0001 011604 MOVB #'\ 9S :zTYPE A BACK SLASH 
011604 


177777 #-1, (SP) :3SET THE RUBOUT KEY 
: R3 KUP BY ONE 
011606 R3,ASTTYIN ::STACK EMPTY? 


;sBR_IF YES 
011604 MOVB (R3) ,9$ :-SETUP TO TYPEOUT THE DELETED CHAR. 
011604 29S :2GO TYPE 
BR es 3:GO READ ANOTHER CHAR, 
SP? a KEY SET? 


7 rE, IF NO 
000134 011604 MOVB —" 72 TYPE A BACK SLASH 


011604 ‘ 
(SP) 4a ge THE RUBOUT KEY 
000025 : fs. aoe 2IS —— A CTRL U? 


BNE $ 
011622 .SCNTLU TYPE A_ CONTROL ‘U"’ 
BR 1 :2GO START OVER 
000022 : eee. (R3) 21S Sage Ye A *"*R'"? 


H_IF NO 
(R3) 17 CLEAR THE CHARACTER 
001167 - SCRLF YPE A ‘'CR'’ & ‘LF’ 
011606 eSTTYIN ‘TYPE THE INPUT STRING 
44 A ‘vyt ANOTHER CHACTER 


BR’ 2s 
001166 : , SQUES 

BR 1$ 7:CLEAR THE BUFFER AND LOOP 
gens ; MOVB (R3) ,9$ :2ECHO THE CHARACTER 


#15, (R3)+ ZiCHECK FOR RETURN 
BN >:LOOP IF NOT RETURN 
177777 “| (R3) 


001170 -$L FEED 
(SP)+ 3:CLEAN RUBOUT KEY FROM THE STACK 


PP et ee! OF eet fet peed 
ENS 


par oe fm me Pe 
Wns & 
soon 


Ooooooooooo00o 


Yn 
3 
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(SP) +,R3 3 RESTORE R3 

SP), ) + ¢ADJUST THE STACK AND PUT ADDRESS OF THE 
000004 000002 oe FIRST ASCII CHARACTER ON IT 
011606 000004 #STTYIN,4(SP) 


RETURN 
9$: . 0 : STORAGE FOR ASCII CHAR. TO TYPE 
0 RMINATOR 


a NAT 
S$TTYIN: LKB 7 + :RESERVE 7 BYTES FOR TTY INPUT 
000012 $CNTLC: /*C/<15><12> : CONTROL 
000 : C /*U/<15><12> 3: CONTROL ‘U"' 
000012 : .ASC /*G/<15><12> : CONTROL ‘'G’’ 
020122 S$MSWR: .ASCIZ <15><12>/SWR = / 


053505 SMNEW: .ASCIZ / NEW = 


AXROOW 
YUN= 
NOW 


SOCOCOCOOCOCoOO 
FE 


— SS os 


oO 
VW 
MmvVing 


-SBTTL TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 


DRI ICI IIIS IOIIISIIOIOIDIOIIIOIII ICICI OI TOIT TOT TOTO TOTO TOTTI TTT OTT 
SE THIS ROUTINE IS USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 
—— NUMBERS. 


A#NUMADR,-(SP)  ;;FIRST ADDRESS OF ASCIZ STRING 
PC ,@#$SUPRS 


011656 : RO,-(SP) 7-SAVE RO 
011660 MO 4(SP) ,RO 2 sPICKUP THE ee 
(RO) : s TERMINATEOR 


2$ IF YES 
#'°0,(RO)+ 3315 THIS AN ASCII ‘0° ? 
1$ :3BR IF YES 
RO :BACKUP BY ‘I’ 

RO,3$ HSA Ay TYPING 


0 zASCIZ POINTER GOES HERE 
(SP)+,RO SIREST ORE RO 

(SP) +, (SP) 2sRESTORE THE STACK 

PC URN 


-SBTTL SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 


DOU IOIDIEIIOISIIIISIIOISIIOIOIIOIIDIOIIOIUIOIOIIIOIOIIOIIIUIUII IOI I IOI tok 
SRTHIS ROUTINE WILL py i pe-eit UNSIGNED BINARY NUMBER TO AN 
ae DECIMAL ASCIZ NUMB' 


MOV NUMBER , = (SP) 23PUT BINARY NUMBER ON THE STACK 
JSR PC ,a#$SB2D 73 CALL 
RETURN 7ZADDRESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK 


011746 : 2(SP),1$ SAVE BINARY NUMBER 
MO #1$,-(SP) 23561 POINTER 
PC, ar$DB2D ot DOUBLE LENGTH CONVERT 
#5, (SP) Y ALLOW FIVE CHARACTERS 
(SP)+,2(SP) ‘PICKUP POINTER 
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ABT 000207 RTS PC 
011746 000000 000000 1$: -WORD 0,0 


3 RETURN 


-SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


SERA REE REEEE RARER REE EREERER EKER EEREEREKKEE 


SATHIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED 
:*DECIMAL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 


;*POSITIVE. 
#PNTR,~(SP) 


JSR PC ,a#$DB2D 
RETURN 


011752 : SAVREG 
MOV 


2(SP) ,R2 
AM$DECVL ,RO 
RO,2(SP) 


012050 


R2 

(R4)+,R2 

(R5)+ (R5)+ 
#°0,R3 


RS, (R0)+ 
° 

1$ 

(RO) + 

PC 


:POINTER TO LOW WORD OF BINARY NUMBER 


Avy FIRST aa OF ASCIZ 
IS ON THE S 


2eSAVE REGISTERS 
sa fa THE DATA POINTER 
T ADDRESS OF *‘SDECVL'' STRING 
PUT ADDRESS OF ASCIZ STRING ON STACK 
‘PICKUP THE BINARY NUMBER 


::SET UP TO DO 10 CONVERSIONS 
: ADDRESS OF TEN POWER 


72CLEAR PARTIAL 
:zSUBTRACT TEN POWER 

;;BR_ IF TEN POWER TO LARGE 
: SAD 1 TO PARTIAL 

;LOOP 
7 ZRESTORE SUBTRACTED VALUE 
+ MOVE TO NEXT TEN POWER 


HANGE PARTIAL TO ASCII 


: SAVE IT 
e? 


oe IF NO 

oe RMINA TOR 

ast REGISTERS 
me TU 
1.0E09 

221.0E08 

321.0E€07 

321.0E06 

321.0E05 


721.0E04 


SEQ 0056 
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1750 321.0E03 
7 331.0E02 
2 321.0€01 
331.0E00 
$DECVL: OBLKB 12. 7 RESERVE STORAGE FOR ASCIZ STRING 
-SBTTL SAVE AND RESTORE RO-R5 ROUTINES 


UII IIIT ICICI ROOT AAAS AISI II AISA III IIA IAI AIAN A A AA He 
 RSAVE RO-R5 

3*CALL: 

+ ie 


SAVREG 
; SUPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 


: #TOP===(416) 
;* +2=-—=(+18) 


i* +4---R5 


ODOOCCOC0O 
ed ad cd od an cd eed ed od 
WWWRINNN SS 
MNOAKNOA KN 


7% +6---R4 
3% +8=—--R3 
;*+10---R2 
;#+12---R1 
;*+14---R0 


012146 SSAVREG: 
MOV RO,-(SP) $3 RO ON STACK 


22(SP) ,~(SP) i 
22(SP) ,-(SP) ;sSAVE PC OF CALL 


;*RESTORE RO-R5 
3*CALL: 

** 

$SRESREG: 

MO (SP)+,22(SP) 7zRESTORE PC OF CALL 
7zRESTORE PS OF CALL 
7zRESTORE PC OF MAIN FLOW 
+ ¢RESTORE PS OF MAIN FLOW 


(SP) +-RO ::POP STACK INTO RO 


0122 
012240 
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-SBTTL TRAP DECODER 


Fhelahehelabadadealadebehalabatotabehelabebedehahetalobaholelebebelobeleseleletelelotelebolalolel lebelphebdebptebebehdelobeil 
SRTHIS lh WILL PICKUP THE Bo BYTE OF roa ""TRAP’’ INSTRUCTION 
;*AND_USE IT TO INDEX THROUGH THE "RAP TABLE FOR THE STARTING ADDRESS 
>*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


012242 010046 STRAP: RO,-(SP) ::SAVE RO 
016600 000002 MO 2(SP) ,RO :GET TRAP ADDRESS 
005740 =(RO) CKUP BY 2 
111000 (RO) ,RO 3iGET RIGHT BYTE OF TRAP 
006300 RO [POSITION FOR INDEXING 
016000 012276 $STRPAD(RO),RO  :: INDEX TO TABLE 
000200 RO 7:GO TO ROUTINE 
;:THIS IS USE TO HANDLE THE "'GETPRI'’ MACRO 
011646 STRAP2: MOV (SP) ,=(SP) ZiMOVE THE PC DOWN 
016666 000004 000002 MOV 4(SP) ,2(SP) SIMOVE THE PSW DOWN 
012274 000002 RTI ZZRESTORE THE PSW 
.SBITL TRAP TABLE 


s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE ‘‘TRAP’’ INSTRUCTION. 


: ROUT INE 
012276 $TRPAD: ; 


STRAP2 

33 CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 

:sCALL=TYPOC TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
2; CALL=TYPOS TYPE OCTAL NUMBER (NO LEADING ZEROS) 
012306 010002 3: CALL=TYPON TYPE OCTAL NUMBER (AS PER LAST CALL) 
012310 010170 3: CALL=TYPDS TRAP#S (104208) TYPE DECIMAL NUMBER (WITH SIGN) 


012312 011010 32 CALL=GTSWR TRAP+6(104406) GET SOFT-SWR SETTING 


012314 010720 22 CALL= CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOFT=SWR 
0 TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
33 TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
7:CALL=SAVREG TRAP+12(104412) SAVE RO-R5 ROUTINE 
012324 SRESREG ;;CALL=RESREG TRAP+13(104413) RESTORE RO-RS ROUTINE 


-SBTTL SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) 


COPYRIGHT (C) 1976 

:DIGITAL EQUIPMENT CORP. 
MAYNARD, MA 01754 

SAUTHOR(S): JIM LACEY/CHUCK HESS 


SAAR REE RA REE EEREREAEERAERAEERAERAEERERRERERERE ER ER RE ReeRe 
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; STORAGE FOR RPDS1 
;RPERRS 
:RPERRS+2 
>RPERRS+4 
[RPERRS +6 


012326 000000 000000 000000 RPERRS: . 
012334 000000 


RPER1, RPER2, AND RPER3 ON AN ERROR ‘'2"' 
RPDS1 


; TABLE OF DRIVE ACTIVE INDICATORS (DRVACT=8 BYTES) 
s;DRVACT=0 IF DRIVE IS IDLE 
;DRVACT>O IF DRIVE IS ACTIVE WITH A COMMAND 
:DRVACT<O IF DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERATION 


DRVACT: . 


elolelelelelelo) 


{DRIVE 


; TABLE OF DRIVE STATUS INDICATORS (DRVSTA=8 BYTES) 
sDRVSTA=0 IF DRIVE IS OFFLINE OR NONEXSITENT 
sDRVSTA>O IF DRIVE IS ONLINE 
sDRVSTA<O IF DRIVE IS UNSAFE 


DRVSTA: . 


Coooocooo 
NOU SWR-O 


DRIVE 


; TABLE OF DRIVE TYPES (DRVTYP=8 BYTES) 
sDRVTYP=0 IF DRIVE IS NONEXISTENT (DRVSTA=0, ALSO) 
:DRVTYP=1 IF DRIVE IS RPO4 
;DRVTYP=2 IF DRIVE IS RPOS 
SDRVTYP=4 IF DRIVE IS RPO6 
:DRVTYP=-1 IF NOT RPO4/5/6 


DRVTYP: . 


012355 


NDICATORS 
S NOT ACTIVE ON THE DRIVE 
S IN PROGRESS 


SEQ +1059 
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DPINT: .BYTE 
-BYTE 


elelelelelelele) 
lelelelelelelele) 
NOAUESWN HO 


DRIVE 


; TABLE OF A ey DUAL PORT REQUESTS 
sDPRQS=0 IF THAT A DUAL PORT REQUEST IS NOT PENDING FOR THAT DRIVE 
‘ DPROS<O IF THAT A DUAL PORT REQUEST IS PENDING FOR THAT DRIVE 


DPRQS: .BY¥TE 
BYTE 


012405 000 / DRIVE 


; TRANSFER WAIT ay (TRNSWT=1 WORD) 
:THIS IS A_ONE WORD QUEUE. * WILL CONTAIN THE ADDRESS OF 
;"DPB'' OF THE 1/0 OPERATION 


012406 TRNSWT: .WORD OQ 


SEARCH WAIT ar. (SRCHWT=1 WORD) 
THIS IS A ONE WORD QUEUE THAT WILL CONTAIN A KEY FOR EACH OF 
;THE DRIVES THAT ARE PERFORMING A SEARCH COMMAND FOR THE 1/0 
SREQUEST THAT IS AT THE TOP OF THEIR REQUEST QUEUE. 
sEACH DRIVE IS ASSIGNED ONE BIT, STARTING AT BITOO FOR DRIVE 0. 


012410 SRCHWT: .WORD 0 


pr | al be ACTIVE FLAG ghz rh BYTE) 
TDRV=0 IF DRIVER IS INACTIVE 
ACTDRV>O IF DRIVER IS ACTIVE 


012412 . ACTDRV: .BYTE 0 


012413 ACTSTR: .BYTE 0 


UNLOAD FLAG (ULDFLG=8 BYTES) 
sULDFLG=0 IF NO UNLOAD COMMAND 
sULDFLG>O IF UNLOAD COMMAND IN PROGRESS 
sULDFLG<O IF UNLOAD COMMAND IN WAIT QUEUE 


012414 ULDFLG: .BYTE 0 :DRIVE 0 


_— 3 os os ss ss oS ss 


NofangNgofy  @ Ss ww 
RW SODNANEWU=OD 


WWWNININAAANWNWAANNAWW 





J 
CZRJBDO, RPO4/5/6 FMTR MACY11 30A(1052) 24=MAY=79 14:10 PAGE 63 
CZRJBD.P11 28-MAR-79 11:23 SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) 


012415 


012423 , “DRIVE 


;LOOK AHEAD COUNT (LACNT=8 BYTES) 
sLACNT WILL INDICATE THE NUMBER OF LOOK AHEADS PERFORMED 


012424 000 LACNT: .BYTE 
BYTE 


lolelelelelelela) 
NOUSWN—O 


012433 


SAVE REGISTERS FLAG (SAVEFG =1 WORD) 
sSAVEFG <0 IF SAVE THE ye yg oo REGISTERS WHEN THE 
[OPERATION IS COMPLETED AS PER (DPB+14) 
;SAVEFG=0 IF SAVE THE RHIT/RPO4/5/6~ REGISTERS, AS PER 
; (DPB+14), AFTER AN ERROR. 


SAVEFG: .WORD 0 
SEEK FLAG (SEEKFG=1 WORD) 
+SEE EKFG=0 IF WHEN THE DISK goes ISN'T IN THE WINDOW 
;FOR A DATA TRANSFER START A SEARCH C D 
SSEEKFG<O IF DATA TRANSFER WILL D0 IMPLIED SEEKS, 
:DISREGARD THE WINDOW 
SEEKFG: .WORD 0 


TIMEOUT TABLE (TIMER=8 WORDS) 
THIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION 


012440 177777 TIMER: .WORD 
- WORD 


012456 177777 : “DRIVE 


:DATA TRANSFER UNDERWAY INDICATOR (DTUW=1 i 
DTUW<O IF NO DATA TRANSFER UNDERWA 
SDTUWS#N (WHERE N=0 TO 7) IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N 


012460 177777 DTUW: .WORD =1 


sATTENTION BITS TABLE (ATABIT=8 BYTES) 
: THIS TABLE CONTAINS THE CORRESPONDING BIT TO EACH DRIVES 
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3181 zATTENTION BIT 
012462 ATABIT: 


Ww 
=t od 
0000 


— SS SS SS YY oY 


012471 “ :DRIV 


2RP04/5/6 TO RH11 ‘MASSBUS CONTROL BUS PARITY ERRORS'’ (MCPE) ALLOWED BEFORE 
CALLING IT FATAL (MCPEMX=1 WORD) 


012472 MCPEMX: .WORD 3 


STORAGE FOR RPADR (THE FIRST ADDRESS (776700) OF THE RH11/RP04/5/6), 
“RPVEC (THE VECTOR ADDRESS (254)), AND RPVEC+2 (THE BR LEVEL (5)). 


012474 176700 RPADR: .WORD 176700 
012476 000254 RPVEC: .WORD 254,5*32. 


sMAXIMUM NUMBER OF LOOK AHEADS ALLOWED IS 4 (MXLACT=1 WORD) 


012502 000004 MXLACT: .WORD 4 
sMAXIMUM DELTA DELAY IS 8 SECTORS (MXDLTA=1 WORD) 


012504 001000 MXDLTA: .WORD 8.*64, 
sMINIMUM DELTA DELAY IS 2 SECTORS (MNDLTA=1 WORD) 


012506 000200 MNDLTA: .WORD 2*64, 
sMAXIMUM SEARCH FOR I/0 WINDOW IS 5 SECTORS (MXWNDW=1 WORD) 


012510 000005 MXWNDW: .WORD 5 
DEFINITIONS OF THE RH11/RP04/5/6 ADDRESS INDEXES 
RPCS1=0 CONTROL AND STATUS REGISTER #1 (DRIVE REG. 00) 
RPWC= ;WOR T REGIS IVE REG) 


wW WWWNWWNWW WWW 


RIVE REG) 
“DESIRED SECTOR/TRACK ADDRESS op tae (DRIVE REG. 05) 
CONTROL _AND STATUS REGISTER y & NOT A DRIVE REG) 
SDRIVE STATUS REGISTER (DRIVE R 601) 
areas REGISTER #1 (DRIVE REG. 08) 
TTENTION SUMMARY PSEUDO REGISTER (DRIVE REG. 04) 
‘(OOK AHEAD REGISTER (DRIVE R 


E REG. 06) 
AL NUMBER REGISTER ES ae | REG. 10) 

SOFFSET REGISTER (DRIVE REG. 
DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG. 12) 
CURRENT CYLINDER ADDRESS eels (DRIVE REG. 13) 
SERROR REGISTER #2 (DRIVE REG. 14 
TERROR REGISTER #3 (DRIVE REG. 18) 

RPEC1=44 SECC POSITION REGISTER (DRIVE REG. 16) 
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000046 RPEC2=46 ECC PATTERN REGISTER (DRIVE REG. 17) 


3RH11/RP04/5/6 DRIVER INITIALIZATION CODE 
sTHIS ROUTINE WILL DETERMINE WHICH RPO4/5/6 DRIVES ARE 
AVAILABLE FOR TESTING AND SET THE DRVSTA INDICATOR 
:TO THE PROPER STATE FOR EACH DRIVE. 
NOTE: THIS ROUTINE CALLS DRVINT 


JSR PC,RPINIT 
RE TURN 


ZNOTE: THE *P* OR 'L* CLOCK MUST BE STARTED 


012512 104412 RPINIT: SAVREG :SAVE RO = R5 
177776 MOV a¥PS,-(SP) SSAVE THE PRESENT PROCESSOR STATUS 
000240 177776 #<5%32.>,a4PS CHANGE THE PRIORITY TO 5 
PC, CLRQUE [CLEAR ALL REQUEST QUEUES 
#RPERRS ,R1 [FIRST ADDRESS TO BE CLEARED 
#SEEKFG.R2 ZLAST ADDRESS TO BE CLEARED 
(R1)+ =CLEAR 
R1,R2 TARE WE DONE? 
1$ *BRANCH IF NO 
012460 #ADTUW,R2 “LAST ADDRESS 
177777 : #-1,(R1)+ : INITIALIZE 
1,R2 DONE ? 


;LOOP IF NO 
SET ALL DRIVES TO OFFLINE 


SETUP THE RH11/RP04/5/6 VECTOR 
#ISR, (R3)+ 


RPVEC+2, (R3) 
RP. é ;FIRST ADDRESS OF RH11/RP04 
#B1T05, RPCS2(R4) sMASSBUS INIT 
R1 T WITH DRIVE 0 
012724 : RO, DRVINT ZIM THE DRIVE 
BR 4$ At A Mr ser OR PARITY ERROR 


BR 5$ 
012346 : DRVSTA(R1) iSET DRIVE STATUS TO OFFLINE 
: R1 2G TO NEXT DRIVE 
177770 #*C7,R1 MASK OUT UNUSED BITS 
BNE 3$ TBR IF MORE DRIVES _TO GO 
000007 #7,R1 START WITH DRIVE 7 
177776 a4Ps :CLEAR THE PROCESSOR STATUS 
012366 : oe ar a ee TO SWITCH PORTS ? 


TBR NOT 
020162 J PC,SET.IE SET INTERRUPT 
012366 - Sale :DRIVE SWITCHED PORTS ? 


;BR IF NOT 
R1 :GO_TO THE Ae 4 DRIVE 
6$ : CHECK NEXT DRIVE 
177776 MOV (SP) +, a@APS [RESTORE THE PROCESSOR STATUS 
RESREG RESTORE RO - R5 
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012722 000207 


010546 


020162 
012346 
004000 


017472 


020020 
024020 
020021 
024021 
020028 
024022 
177777 
013310 
001000 
000010 


000000 
000010 


012356 


012356 


012356 


012356 


000012 
012356 
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PC 


;DRIVE wait koutin ROUTINE 
THIS ROUTINE TP In ds. A IF A DRIVE EXIST AND 


7 CALL 


° 
° 
. 
go 
. 
° 
e 
° 


DRVINT: 
C 


5/6. IF 


#DRVNUM ,R1 
RPADR ,R4 


, RO,DRVINT 


R5,-(SP) 
DRVSTA(R1) 
DRVTYP(R1) 


:BYE-BYE 


"'READ-IN PRESET" IS IS 
AND DEPENDING ON THEIR STATE, 


ON 
“DRVSTA IS SET TO THE PROPER CONDITION. 


DRIVE NUMBER TO R1 

:UNIBUS ADDRESS OF RH11/RP04/5/6 (RPCS1) 
;CALLED BY A JSR 

ERROR OCCURRED (PARITY) 

;NORMAL RETURN 


7SAVE_R5 

START DRIVE STATUS AS OFFLINE 

+ CLEAR THE DRIVE TYPE INDICATOR 
AR_THE UNLOAD 


FLAG 
:SELECT A DRIVE 
7D0 A DRIVE CLEAR COMMAND (& SEIZE DRIVE) 


eRPCS1(R 
weiTi2, SRPCS2(R4)™ sNONEXISTENT DRIVE? 


PC,SET.IE 
6$ 
DRVSTA(R1) 


SET 
ala aa tttnell 


RO,RD.RP 
(SP)+,R5 
#1,DRVTYP(R1) 
#20020,R5 


#24020,R5 


#2,DRVTYP(R1) 
#20021,R5 


#24021 ,R5 


#4 ,DRVTYP(R1) 
#20022,R5 


#24022,R5 


#~1 ,DRVTYP(R1) 


TSTPGM 


CH 
:60 SET *‘IE’’ WITHOUT A ‘*‘TRE*’ 
LEAVE THIS ROUTINE 
DRIVE STATUS TO OFFLINE 
SEE IF DRIVE AVAILABLE 
;BR IF DRIVE NOT AVAILABLE 
READ THE DRIVE TYPE REG. 


ERROR RETURN ADDRESS 
sPUT DRIVE TYPE IN R5 
zSET RPO4 INDICATOR 
21S Aa SINGLE PORT RP04? 


IF 
i] ITA DUAL PORT RPO4? 
:BR_IF YES 
:SET RPOS INDICATOR 
;SINGLE PORT RPOS ? 
:BR IF YES 
DUAL PORT RPOS ? 
:BR IF YES 
;SET RPO6 INDICATOR 
:SINGLE + ld RP06 ? 


:BR 

DUAL PORT RPO6 ? 

7BR_IF YES 

7 1 eats TO *OTHER' 
Fagin T PROGROURLE DRIVE? 


#B1T09, RPDS1(R45 : “1S DRIVE PROGRAMMABLE ? 
“BRANCH IF 

#B1T03, DRVTYP(R1);:SET INDICATOR 

6$ sEXIT 
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3349 013144 012746 000121 9$: MOV #121,-(SP) 3;D0 A *READ=-IN PRESET'' 
3350 013150 004037 017652 JSR RO,WRT.RP 
3351 013154 RPCS1 
3352 013156 013304 
3353 013160 012746 010000 MOV #BIT12,-(SP) sSET FMT22=1 
3354 013164 004037 017652 JSR RO,WRT.RP 
3355 013170 32 RPOF 
3356 013172 013304 
3357 013174 004037 017472 JSR RO,RD.RP sREAD RPDS1 
3358 013200 000012 RPDS1 
3359 013202 013304 8$ 
3360 204 012605 MOV (SP)+,R5 sAND SAVE IT IN R5 
3361 100015 BPL 4$ ‘BRANCH IF ATA=0 
3362 013210 116164 012462 000016 MOVB ATABIT(R1), nPas(ha) ;CLEAR ATTENTION BIT 
3363 013216 004037 017472 JSR RO,RD.RP FIND OUT WHY ATA=1 
3364 013222 000014 RPER1 
3365 013224 013304 $ 
3366 013226 006126 ROL (SP)+ 31S IT UNSAFE? 
3367 013230 100004 BPL 4$ ;BR IF NOT 
013232 112761 177777 012346 MOVB #-1 ,DRVSTA(R1) sSET UNSAFE INDICATOR 
3369 013240 000407 BR 6$ iE ~ +a 
3370 013242 005105 _ 4$: COM R5 DPR, DRY, AND VV 
3371 013244 042705 167077 BIC #*C<Bl r12161T08:8i 70781 T06>, R5 
3372 013250 001003 BNE 6$ ;BRANCH IF MOL, DPR, DRY, OR VV iS CLEAR 
3373 013252 112761 000001 012346 MOVB #1 ,DRVSTA(R1) 3SET DRIVE STATUS T0 ONL I NE 
3374 013260 005720 6$: TST (RO) + * STEP OVER THE ERROR RETURN 
3375 013262 000410 BR 1 sEXIT 
3376 013264 006301 7$: ASL 3s CHANGE INDEX " ADDRESS WORDS 
3377 013266 012761 003720 012440 MOV #2000. , TIMER(R1)" ah tan 2 SEC TIMER 
3378 013274 006201 ASR R1 ORE R1 
3379 013276 105161 012366 COMB DPINT(R1) RET PORT INITIALIZE INIDICATOR 
3380 013302 005720 TST (RO) + 
3381 013304 012605 8$: MOV (SP)+,R5 RESTORE R5 
sess 013306 000200 RTS RO 3EXIT 
3384 ; i TEST tart gy x DRIVE FLAG (TSTPGM=1 WORD) 
3385 THE FLAG WILL BE SET BY THE PROGRAM UNDER 
3386 :MANUF AC TURING CONDITIONS (ACT,APT) AND 
3387 ;CLEARED UNDER FIELD CONDITIONS (XXDP CHAIN, 
3388 : STANDALONE) WITH STARTING ADDRESS 200. 
3389 7 THE FLAG WILL BE SET UNDER ALL CONDITIONS 
3350 tw! TH STARTING ADDRESS 220. 
$308 013310 000000 TSTPGM: .WORD 0 3=1 TEST PROGRAMMABLE DRIVE 
$396 ;REQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST 
3396 7 CALL 
3397 ; 
3398 Z JSR RO, a4RP04 ;CALL THE RPO4/5/6 DRIVER 
3399 ; PNTADR sADDRESS OF POINTER OF DRIVES PARAMETER BLOCK 
3400 . RE TURN1 ZRETURN HERE IF QUEUE IS FULL 
3401 : RETURN2 sRETURN HERE IF REQUEST IS IN QUEUE OR THERE 
308 31S AN ERROR CONDITION 
3404 013312 013746 177776 RPO4: MOV @4PS ,-(SP) ;SAVE THE CALLING STATUS 


CZRJBDO, RP0G/5/6 FMTR 
28-MAR-79 


CZRJBD.P11 


3405 


ERE 
Qe 


RATS ATT TS 
SaVARARASSS 


EEE ELE LS 
SSSVRARANS 


013316 


013737 
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012500 
000001 
000016 


012474 
012346 


012414 
012366 
012724 
012346 
012376 
020624 
000103 


177777 
012336 


013604 
120000 
014714 
020624 
000100 
0201 6a 
012346 


140000 
012356 
100002 
110000 


012412 
177776 


177776 
012412 


000002 
012414 


000016 


000016 


000016 
000016 
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MOV RPVEC+2,a#PS  ;DON'T ALLOW ANY RP04/5/6 INTERRUPTS 
MOVB #1, ACTDRV SET "ACTIVE DRIVER'' FLAG 
SAVREG :SAVE RO = R 
MOV (RO) ,R2 [PICKUP THE DRIVE PARAMETER BLOCK POINTER 
CLR 16(R2) SCLEAR THE STATUS/ERROR INDICATOR 
MOVB — (R2),R1 ‘PICKUP THE DRIVE NUMBER 
MOV RPADR,R4 SUNIBUS ADDRESS OF RPCS1 
TSTB —— DRVSTA(R1) * CHECK DRIVES STATUS 
BGT 1$ ‘BRANCH IF ONLINE 
TSTB —sULDFLG(R1) UNLOAD COMMAND IN QUEUE? 
BNE ‘BRANCH IF YES 
TSTB —sDPINT(R1) : TRYING TO INIT THE DRIVE 
BNE 5$ ‘BR IF YES 
JSR RO,DRVINT ‘GO INIT. THE DRIVE 
BR 4$ TERROR RETURN 
TSTB — DRVSTA(R1) 71S DRIVE STATUS ONLINE? 
BLE ‘BR IF NOT 
1$: TSTB —sDPRQS(R1) SOUTSTANDING PORT REQUEST FOR THE DRIVE ? 
BNE S$ ‘BR IF YES 
MOV R1,RPCS2(R4) SELECT THE DRIVE 
JSR RO. DRVQUE ‘PUT THIS REQUEST IN QUEUE 
BR SQUEUE IS FULL 
CMPB —s- #103, 2(R2) [1S THIS REQ. FOR AN UNLOAD? 
BNE 2$ :BR_IF NO 
MOVB  #-1,ULDFLG(R1) SET THE ‘UNLOAD IN QUEUE’’ FLAG 
2$: TSTB —sDRVACT(R1) 71S THIS DRIVE ACTIVE? 
BNE 8$ ‘BR IF YES 
JSR PC OPT :CALL THE OPTIMIZER 
3$: MOV #BITISIB1T13,16(R2):SET THE "UNLOAD IN QUEUE'’ ERROR FLAG 
4$: JSR PC. C17 [GO HANDLE THE PARITY ERROR 
5$: JSR RO, DRVQUE :PUT REQUEST IN QUEUE 
9 SQUEUE IS FULL 
BIT #BI1T06, (R4) [1S "IE* SET ALREADY ? 
BNE $ :BR IF IT IS 
JSR PC,SET.IE :SET INTERRUPT 
BR $ SRETURN, REQUEST IN QUEUE 
6$: TSTB — DRVSTA(R1) iSEE IF DRIVE OFFLINE OR UNSAFE 
BLT 7 F UNSAFE 
MOV #B1T15 BIT14, 160k) TF er OFFLINE ERROR INDICATOR 
TSTB —DRVTYP(R1) ;SEE IF OFFLINE OR NONEXISTENT 
BNE 8$ *BR IF OFFLINE 
MOV #81715 !B1101,16(R2) 1BREPORT DRIVE NONEXISTENT 
7$: MOV #B1T15!B1T12,16(R2) ;DRIVE IS UNSAFE 
8$: RESREG :RESTORE RO - R5 
TST (RO) + SSETUP FOR NORMAL RETURN 
BR 10$ ‘FINISH UP, THEN EXIT 
RESREG TRESTORE RO - RS 


9S: 
10$: TST (RO) + 


MOV (SP) +, a4PS ;RETURN ‘PS‘' TO USER LEVEL 
RTS RO >RETURN TO CALLER 


CORRECT THE RETURN ADDRESS 
CLRB ACTDRV CLEAR “ACTIVE DRIVER'’ FLAG 


SEQ 0066 


C 
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;OPTIMIZER=CALLED FOR A PARTICULAR DRIVE 


CALL 
: MO #DRVNUM,R1 :DRIVE NUMBER TO R1 
: PC,OPT ‘SETUP A COMMAND 


OPT: ;SAVE RO = R5 
177776 MOV — @#PS, (SP) :SAVE PROC. STATUS ‘ 
012462 012410 ATABIT(R1) ,SRCHWT CLEAR "'SEARCH WAIT’’ KEY 
020700 PC,GETREQ GET ‘DPB’ POINTER OF REQUEST 
Re 71S THERE A REQUEST IN QUEUE? 


7$ ;NO=-BRAN 
004000 000000 #B1T11,RPCS1(R4)- 31S DVA SET? 
10$ BRANCH IF NOT 
000100 000012 #B1T6,RPDS1(R4) ee iis” 


T I 
012724 : RO,DRVINT +SEE IF DRIVE STILL ONLINE ? 
BR $ PARITY OR "DVA' NOT SET 
012346 : — 18 DRIVE — 
020722 PC ,POPQUE ;NO=-REMOVE REQUEST FROM QUEUE 
140000 000016 MOV #81T15!BIT14,16(R2) _;SET OFFLINE STATUS/ERROR INDICATOR 
012346 parila IS DRIVE UNSAFE ? 


8 :BR TO EXIT IF NOT 
110000 000016 #B1T15!B1T12,16(R2) ire Wii's STATUS/ERROR INDICATOR 
000111 : #111,~(SP) ;LOAD COMMAND ONTO THE STACK 
017652 J RO,WRT.RP LOAD THE REGISTER 
;REGISTER INCREMENT 
6$ ;ERROR RETURN 1 1 es 
004000 #B1T11,(R4) : DRIVE AVAILABLE ? 


IF NOT 

000150 MPB #150,2(R2) 21S THE REQUEST FOR 1/0? 

$ : YES--BRANCH 
014300 PC,CI4 7CALL_THE COMMAND INITIATOR 

BR 8$ BRANCH TO EXIT 

012460 : DTUW :DATA TRANSFER gory 

4$ :YES--GO START A SEARCH 
012436 SEEKFG :D0 IMPLIED SEEKS? 
3$ ; YES= CH 


015250 RO,LA ;NO=-DO LOOK AHEAD 
BR 8$ RETURN HERE ON A PARITY ERROR 
BR 4$ :GO START A_SEARCH 

014064 : AT START A DATA TRANSFER 


BR 
014172 : . PC,CI3 ZSTART A SEARCH 
BR :GO TO THE EXIT 
177777 012376 : #-1,DPRQS(R1) :SET PORT REQUEST INDICATOR 
R1,R3 SET UP TO ADDRESS WORDS 
R “CONVERT TO WORD D INDEX 
023420 012440 MO #10000. .TIMER(RS) |: START 10 SEC TIMER 


014714 : PC,CI7 PROCESS THE PARITY ERROR 
000100 : $9 106, (4) 7 SEE r sh ALREADY SET 


1 oa I SE 
014050 020162 PC,SET.IE 7SET “*IE’’ WITHOUT A ‘'TRE*’ 
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014054 012637 177776 8$: MOV (SP) +, a4PS RESTORE PROC. STATUS 
104413 RESREG sRESTORE RO = R5 
000207 RTS PC 


COMMAND INITIATOR 


020722 
012406 


012474 
000010 
000004 
000002 


017652 
017652 
000002 
017652 
012460 
000012 
017652 
000010 
012510 


000026 


000011 
017652 


000131 
017652 


000001 


CALL 


#DRVNUM ,R1 
#DPB,R2 
PC,CI? 


PC ,POPQUE 
R2, TRNSWT 
R2,R3 


RPADR RS 
R1,RPCS2(R4) 
#4~R3 


#2.RG 
(R3)+, (RG) + 
(R3) +. (R4)+ 
(R3)+,=(SP) 
RO,WRT.RP 


(R3)+,-(SP) 
RO,WRT.RP 


2(R2) ,~(SP) 
RO,WRT.RP 


R1,DTUW 

c15 

RPADR,R4 

RI JRPCS2(R4) 

12(R2) .=(SP) 
WRT. RP 


10(R2) ,R3 
MXWNDW ,R3 


1$ 

#22. ,R3 
R3,~-(SP) 
11(R2),1(SP) 
RO,WRT.RP 


#131,-(SP) 
RO,WRT.RP 


:DRIVE So ore 
ADDRESS OF 
2C1? me C13, OR C14 


SCI1=DATA TRANSFER 
>CI2=SEARCH REQUESTED BY DATA XFER 


[CI4=NOT DATA TRANSFER 


REMOVE REQUEST FROM ‘DRIVES WAIT*’ QUEUE 
;PUT REQ. IN a te WAIT QUEUE 


3 COUNT 
[LOAD BUFFER ADDRESS 


[LOAD SECTOR AND TRACK 

CALL THE LOAD(WRITE) ROUTINE 
: INDEX OF REGISTER TO LOAD 
;ERROR RETURN ADDRESS 

;LOAD CYLINDER ADDRESS 


3LOAD *‘COMMAND+GO"", ''A17&A16'', AND ‘PSEL*’ 


:SET ‘DATA TRANSFER UNDERWAY" 


:RPCS1 ADDRESS 
SELECT DRIVE 
DESIRED CYLINDER ADDRESS 


PICKUP SECTOR ADDRESS 
BACKUP BY MAX. SEARCH FOR 1/0 WINDOW 


; COMBINE THE ae tee SECTOR WITH 
: THE DESIRED TRACK 
[LOAD DESIRED TRACK & SECTOR 


START A SEARCH 





E 
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014714 
012462 012410 os + aipaige » SRCHWT iSET ‘‘SEARCH WAIT’’ KEY 


012474 ; RPADR, ;RPCS1 ADDRESS 

000010 R1 sAPESS (RA) SELECT DRIVE 

000002 2(R2) ,R PICKUP THE REQUESTED COMMAND 

000131 4 Oa ae 71S _ IT A SEARCH COMMAND? 
BRANCH IF NO 

000010 10(R2) .=(SP) ;LOAD DESIRED TRACK & SECTOR 

017652 J RO,WRT.RP 

BR 2$ :GO ie CYLINDER 
000105 : #105,R3 31S IT A SEEK COMMAND 
3$ ;BRANCH_IF 


: CH NO 
000012 : 12(R2) ,=(SP) z;LOAD DESIRED CYLINDER 
017652 RO,WRT.RP 


BR C16 
000115 : #115,R3 31S IT AN ‘OFFSET’’ COMMAND? 
& BR IF NO 


017472 RO,RD.RP sMERGE THE OFFSET VALUE a RPOF 
;BUT DON'T CHANGE THE UPPER 


000001 1(R2) , (SP) BYTE WHEN LOADING THE 
017652 JS RO,WRT.RP REGISTER (RPOF) 


7GO START THE C 


C16 OMMAND 
000107 3 4 es siS ITA 2 eee Hanae” COMMAND ? 


CI BRANCH IF YES 

000117 MPB #117,R3 :1S_ IT A RETURN TO CENTER? 
BRANCH IF YES 

000103 SI0S.AS 21S IT ‘5 UNLOAD’ COMMAND? 


BRANCH NO 
000001 012336 #1,DRVACT(R1) ;SET THE DRIVE ACTIVE INDICATOR 
012346 DRVSTA(R1) :PUT DRIVE STATUS TO OFFLINE 
000001 012414 MOVB #1,ULDFLG(R1) SET “UNLOAD IN PROGRESS** FLAG 
R3,~-(SP) COMMAND 


Seen 


= :START THE ‘‘UNLOAD’* 
017652 S RO,WRT.RP 


PC RETURN TO USER 
000143. : 4 a aa #IS ITA ee FORMAT’* COMMAND? 


CH IF NO 
017472 RO,RD.RP SREAD THE OFFSET REGISTER 


Biaatatatatatataty 
NO OONAUSWR-O 


aa 


000001 000001 1(R2),1(SP) ; COMBINE "'FMT22"',"ECI'', AND ‘HCI"' 
017652 RO,WRT.RP LOAD ‘FMT22"", “ECI'', AND/OR ‘HCI"'. 


BR 12$ 
0145 000141 : :I1S_IT A ‘GET REGISTER’* COMMAND? 
014540 0$ ;BRANCH IF NO 
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016203 
116237 


000006 
ial A 
000011 

017472 


014564 
000002 
000145 


017652 
020722 
000200 
012434 
020044 


001750 
000001 


017652 


0 
012460 


012406 
177777 


010000 


014564 


014564 


000016 


012440 
012336 


000010 


000016 


012460 


000010 


F 
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7$: 


8$: 
9$: 


6(R2) ,R3 
10(R2) ,9$ 


11(R2) ,R5 
RO,RD.RP 


(SP)+,(R3)+ 
9$,R5 


td 


#2,9% 

8$ 

12$ 

R3,-(SP) 
RO,WRT.RP 

PC ,POPQUE 
#B1T07,16(R2) 
SAVEFG 


13$ 
PC,SVRH11 
PC 


R1 
M1000. ,TIMERCRT) 


#1 ,DRVACT(R1) 
PC 


R3,-(SP) 
RO, WRT .RP 


C15 
#B1T12,RPCS2(R4) 
C18 


PC,SVRH 
#111,-(SP) 
0,WRT.RP 


e 


PC ,EMPTYQ 
ULDFLG(R1) 
DRVACT(R1) 
R1,DTUW 


1$ 
TRNSWT 
4-1 ,DTUW 
PC 


7 SA 
#B1T12,RPCS2(R4)_ 


R1 


POINTS TO 1ST ceTenit OF WHERE 
;TO PUT THE REGISTER(S) 

INIT. THE INDEX FOR THE FIRST REG. 
INDEX OF LAST REG. TO MOVE 

[READ RP04/5/6 REGISTER 


INDEX OF REG. TO READ 
coast THE - BEEN READ? RH11/RP04/5/6 REG. 


T REG. BEEN 
:GET OUT YES 
2 INCREASE THE INDEX BY 2 
;LOOP=-MORE TO READ 
Ts ITA “a DRIVE** COMMAND? 
BRANCH IF YES 
LOAD THE COMMAND 


sREMOVE REQ. FROM QUEUE 
:SET THE 'DONE'' 
SAVE THE RH11/RP04/5/6 REGISTERS? 


BRANCH IF NO 
hae SAVE THE REGISTERS 
;RETURN TO USER 


SET A ONE SECOND TIMER 


SET THE DRIVE ACTIVE 
;RETURN TO THE USER 
OMMAND 


SLOAD THE C 


et he — ? 


3BR 

ANYTHING IN QUEUE ? 
C17B 

ome 16082) 


3SET ‘PARITY'’ ERROR INDICATOR 
O SAVE" THE RH11/RP04/5/6 REGISTERS 
‘DO A ‘DRIVE CLEAR 


sEMPTY THE QUEUE 

CLEAR THE UNLOAD IN QUEUE FLAG 
:DRIVE IS IDLE 

:1F THIS DRIVE HAD AN I/O REQUEST 

2 IN PROGRESS CLEAR ALL OF THE FLAGS 


VE RO = R5 
:1S_"NED* SET ? 
IF YES 


SEQ 0070 
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015030 R3 
012336 1$: DRVACT(R1) : DRIVE ACTIVE? 
5$ CH_IF NO 


012406 TRNSWT ,R2 GET THE "TRANSFER WAIT’’ QUEUE 
012460 R1,DTUW :DID THIS DRIVE HAVE AN I/O IN PROGRESS? 
2$ BRANCH IF YES 
020700 PC,GETREQ 2GET THE DPB POINTER 
: R2 os ae FOR DRIVE ? 


4$ : NO 
000010 #BIT12,RPCS2(R4) ;"NED' SET ? 
$ ;BR IF NOT 
000016 rt ‘palatal -16(R2) 3SET "DRIVE NON-EXISTENT’ INDICATOR 


ONT INU 
000016 : rae te. 16(R2) 3SET *NON=CLEARABLE PARITY’ ERROR INDICATOR 
PC,SVRH11 ;SAVE RH11/RP04/5/6 REGISTERS 
012440 : MOV #-i, TIMER (R3) ; STOP, THE TIMER 
DRVACT(R1) :SET "DRIVE ACTIVE’ TO IDLE 
012460 al. -DTUW 31S ag as SETUP FOR A TRANSFER 


NOT 
177777 + 012460 #~1 ,DTUW SRESET THE INDICATOR 
012406 TRNSUT | CLEAR THE Mogcoph QUEUE 
012414 : ULDFLG(R1) [CLEAR UNLOAD FLAG 
010000 000010 Miri, RPCS2(R6) : NED* SET ? 


BR IF YES 
sMOVE TO THE NEXT DRIVE 


WN 
NMNANSO 8 


00002 


0 
177770 
BRANCH IF MORE DRIVES 
177777 + 012460 P NO _DATA TRANSFERS UNDERWAY 
:CLEAR THE ‘TRANSFER WAIT’ QUEUE 
QUE :CLEAR ALL OF THE REQUEST QUEUES 
000010 Wi TOS. RPCS2(R4)° ;DO A MASSBUS INIT. 
7$ ; CONTINUE 


BR 
6$: PC,EMPTYQ :CLEAR THE DRIVE'S QUEUE 
DRVSTA(R1) 7SET DRIVE TO OFFLINE 
0 DRVTYP(R1) SCLEAR THE pa Bi INDICATOR 
020162 7$: JSR PC,SET.IE SET "'IE’* WITHOUT ‘'TRE’’ 
RESTORE RO - RS. 
015246 RTS PC ; RETURN 


:LOOK AHEAD ROUTINE 
CALL 


AAA AA AAA AAA 
NNN 
RS RIFVBSNVSEAK 


01 
0 
Cc 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


#DRVNUM ,R1 ;DRIVE NUMBER 

PB,R2 :POINT TO DPB 
:GO CHECK THE WINDOW 
;ERROR RETURN 


‘START A SEARCH 
‘START A DATA TRANSFER 


015250 012474 : RPADR, GET RPCS1°S ADDRESS 
000010 R1 PRPC SO (RG) SELECT DRIVE 
017472 JS RO.RD.RP READ CURRENT CYLINDER 


ERROR RETURN ADDRESS 
3740 015270 000012 (SP) +,12(R2) 1S CURRENT CYLINDER=DESIRED 
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2 CYLINDER? 
3$ EXIT IF NO 
012424 LACNT(R1) : INCREMENT ha LOOK AHEAD COUNT 
012424 012502 MPB LACNT(R1) ,MXLACT ;EXCEED MA 
BRANCH HIF. ves 


2 

000010 : 10(R2) ,R3 GET DESIRED SECTOR 5 a AND 
R3 3MULT. BY 64--ALIGN WITH 
R3 LOOK AHEAD REGISTER 


R3 
000340 177776 #340, a4PS PRIORITY LEVEL ‘7** 
017472 RO,RD.RP READ LOOK AHEAD REGISTER 


Fad aid CALCULATE THE DELTA 


002600 #<22.%64.>,R3  ;MAKE THE DELTA POSITIVE 
012504 : Mp MXDLTA,R3 [CHECK THE DELTA TO SEE 

3$ TIF IT IS WITHIN THE 
012506 MNDLTA,R3 [WINDOW==-IF YES, ZERO 

3$ ZTHE LOOK AHEAD COUNT 
012424 : LACNT(R1) ZAND TAKE THE I/O EXIT 

+ 
(RO) + ADJUST THE RETURN ADDRESS 


$ sé 
014714 2 PC.CI7 sPROCESS THE ERROR 
5$: RO ; RETURN 


: INTERRUPT SERVICE ROUTINE 
000001 4) ISR: MOVB #1 ,ACTDRV 1 Vel Feet FLAG 
012474 MOV RPADR ,R4 : ADDRESS OF RHSCS1 
012460 DTUW,R1 GET ‘DATA TRANSFER UNDERWAY'’ INDICATOR 
1$ BRANCH IF NO DATA TRANSFER UNDERWAY 
015452 sO cent TRANSFER DONE 
015612 : JSR PC,SC [CALL SPECIAL CONDITIONS 
: RESTORE RO - R5 


012412 ) CLRB.  ACTDRV [CLEAR ACTIVE DRIVER'' FLAG 
015450 000002 RETURN 


; TRANSFER DONE ROUTINE 


015452 10 012336 TD: DRVACT(R1) SET DRIVE ACTIVE INDICATOR TO IDLE 
177777 012460 #~1,DTUW NO DATA TRANSFERS UNDERWAY 


R1 
177777 +=012440 MOV east CANCEL TIMEOUT 


TRNSWT ,R2 :GET *DPB*’ ADDRESS FROM THE 
TRNSWT ; TRANSFER WAIT QUEUE=-CLEAR QUEUE 
000016 #B1T07,16(R2)  ;SET DONE 
00001 R1,RPCS2(R4) :SELECT THE DRIVE 
017472 JS RO,RD.RP ; TRANSFER ERROR(TRE=1)? 


(SP) + 
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015532 BM 3$ :BR IF YES 
0155 012434 SAVEF G 7 SAVE THE RH11/RP04/5/6 REGISTERS? 
1$ BRANCH IF NO 
020044 PC,SVRH11 2 YES=-SAVE THE REGISTERS 
013604 : PC,OPT CALL OPTIMIZER 
BR SC CHECK OTHER DRIVES 
000113 : #113, (R4) :RELEASE THE DRIVE 
HECK FOR OTHER DRIVES 
100100 000016 t ns gp htt a r6¢ho) SET DATA ERROR FLAG 
020604 PC, EMPTY MPTY THE ‘DRIVE UE 
020044 PC SVRHTT ‘SAVE THE | ius coat REGISTERS 
040111 #60111, (R4) 2 ISSUE A ‘DRIVE CLEAR" 
000113 #113, (R4) : ISSUE A RELEASE. 70 THE DRIVE 
CHECK FOR OTHER DRIVES 


SPECIAL CONDITION ROUTINE 


000016 SC: RPAS(R4) ,R3 sREAD ''RPAS'' 
$ ;BRANCH IF ANY ‘ATA* BITS SET 
017472 RO,RD.RP READ CONTROL AND STATUS REGISTER 


(SP) + z1S “‘1E''=1? 
1$ SYES, NO DRIVES TO CHECK 
020764 RO,ES.SAV SAVE THE ADDRESS IN ‘S$ESCAPE' 
1 REPORT AN ILLEGAL INTERRUPT 
020162 ee ary INTERRUPT ENABLE 


RE TURN 
PROCESS, i DRIVES THAT HAVE 


000001 


sATA=1? 
: YES~-BRANCH 
SMOVE TO THE NEXT DRIVE 


s;BRANCH IF MORE TO CHECK? 
CLEAN OFF ne STACK 

PC RETURN T R 
012366 : DPINT(R1) PINITIALIZING THE DRIVE ? 
1$ BR IF NOT 


016604 $C13 PROCESS THE DRIVE 
012376 : ——— :PORT REQUEST OUTSTANDING ? 


016604 MP $C13 START THE OUTSTANDING COMMAND 
012346 : DRVSTA(R1) CHECK THE DRIVE STATUS 

5$ BRANCH IF ONLINE 
012414 ULDFLG(R1) = UNLOAD IN PROGRESS? 

5$ CH IF NOT 


020700 PC,GETREQ 7GET DPB POINTER 
020044 PC,SVRH11 SAVE THE gaps pa > yey gS 
016534 PC,SC12 SAVE RPDS1, RPER1, RPERZ, 
ALSO DO A DRIVE INIT (DRVINT) 
015754 105761 012346 DRVSTA(R1) DID DRIVE COME ONLINE? 
015760 003416 BL 6 ~-BRANCH 
015762 032737 040000 012326 #B1T14,RPERRS WAS THERE AN ERROR? 
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015770 001002 3$ BR IF ERROR 
0 000137 016444 $C11 ;NO_ERRCR 
013705 012330 3$: RPERRS+2,R5 7YES -= PICKUP gs AND 
000502 BR SC :GO PROCESS THE ERR 
012336 5$: ty DRVACT(R1) ‘DRIVE OTTER WITH COMMAND OR ERROR RECOVERY ? 
016534 PC,SC12 SAVE RPDS1, + RPER2, AND RPER3 
ALSO DO A DRVINT 
012366 6$: DPINT(R1) TRYING TO INIT THE DRIVE ? 
BNE SC :BR IF YES, CHECK ON MORE DRIVES 
012346 — : CHECK k ON DRIVE S STATUS 


BM BR IF 
020000 012334 ~ ‘latent :ADDRESS_ PLUG CHANGED ? 


Y 
000113 #113,-(SP) RELEASE COMMAND 
017652 JS RO,WRT.RP WRITE THE COMMAND INTO RPCS1 
:REGISTER INDEX 
PARITY EXIT ADDRESS 
: (SP) ,R5 PICKUP (RPAS) BEFORE THE ERROR CALL 
020764 RO,ES.SAV SAVE THE ADDRESS IN ‘SESCAPE' 
2 :REPORT THE ye ATTENTION 
SC4 :GO CHECK FOR MORE ATA'S 


020764 RO,ES.SAV : SAVE THE ADDRESS IN ‘SESCAPE' 

5 ;REPORT THE ADDRESS PLUG CHANGE 

SC4 ;CHECK FOR MORE DRIVES 

SC6: R1 SETUP TO 7 WORDS 

177777 +=012440 MO #-1,TIMER(R1) ;STOP THE TIMER 

R1 RESTORE THE DRIVE ADDRESS 
020700 PC,GETREQ :GET THE he POINTER FROM THE QUEUE 
000010 R1,RPCS2(R4) SELECT DRIVE 
017472 JS RO,RD.RP READ THE RRPO4" S STATUS REG. 


(SP) ,R5 zsAND PUT IT IN R5 
(SP) + BR IF ERROR ERROR? 


BMI 1$ 
012336 DRVACT(R1) da DRIVE'S STATE 
sc IF DRIVE ACTIVE WITH ORDER 
100210 a we1715:81707:81703, 16(R2) ; INFORM USER OF ERROR RECOVER COMPLETION 


017472 : JSR RO,RD.RP READ ERROR REGISTER #1 


MO (SP)+,R5 zAND SAVE IT_IN RS 
020044 PC,SVRH11 7 SAVE RH11/RPO4/S76 REGISTERS 
000111 #111,-(SP) : ISSUE A DRIVE CLEAR 
017652 JS RO,WRT.RP 


eer 
R 


ARO 
Se 


zWAS ‘‘UNSAFE'' CONDITION =1? 
:BRANCH IF YES 
:ANYTHING IN QUEUE ? 


SC7 “BR IF 
100240 000016 81 #81115:B1T07:B1105, 16(R2) y INFORM USER OF ERROR 


lelelelelelelelelo) 
pn a fe Pf 


= od od 
NO 
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017472 1$: JS RO,RD.RP READ DRIVE STATUS REG. #1 


(SP) ,R5 * SAVE, RPDS1 IN R5 
(SP) + 7‘ ERR’ '=1? 
2s 7BR iF NO=-UNSAFE CLEARED 
177777 012346 #-1,DRVSTA(R1) ;DRIVE IS UNSAFE 
020044 PC, SVR RH11 ;SAVE RH11/RP04/5/6 REGISTERS 
000016 #BIT15!BIT12, 16(R2) ; INFORM USER OF UNSAFE ERROR 


SC 
010000 : ~ thane :‘MOL'' = 1 ? 


;BR IF YES 
177777 012336 #-1,DRVACT(R1) ;ACTIVE ERROR RECOVER 
000001 012346 #1,DRVSTA(R1)  ;ONLINE 


R1 
072460 012440 MOV + a -TIMER(R1) ;START 30 SECOND TIMER 


015666 84 
100220 000016 #B1T15!BITO7!BIT04, rai ; INFORM USER OF ERROR 
DRIVE IS IDLE 


012336 DRVACT(R iN 
020604 JS PC EMPTY DUMP THE QUEUE 
012414 ULBFLGERD NP Mor PROGRESS OR QUEUE? 


012414 ULDFLG(R1) CLEAR UNLOAD FLAG 
012462 000016 : MOVB ATABIT(R1),RPAS(R4) ;CLEAR ATTENTION BIT 
012346 DRVSTA(R1) 31S THE DRIVE UNSAFE ? 
BM 2$ :BR IF IT IS 
000113 #113,-(SP) atte t COMMAND 
017652 RO,WRT.RP ;WRITE THE COMMAND INTO RPCS1 
' 3REGISTER INDEX 
C PARITY EXIT ADDRESS 
015666 2$: JMP SC4 CHECK FOR MORE DRIVES 
012336 ; ne 21S DRIVE IDLE? 


sYES= CH 
020700 PC,GETREQ GET DPB POINTER 
014714 PC,CI7 ZPROCESS THE PARITY ERROR 


BR ; CONT 
014742 : PC,CI7B PROCESS THE UNCORRECTABLE PARITY ERROR 
015666 J SC4 sCHECK MORE DRIVES 
012414 ULDFLG(R1) ‘UNLOAD IN PROGRESS’? 

BL 1$ :BRANCH IF NO 
piss ie ULDFLG(R1) 2CL a, UNLOAD FLAG 

012336 : DRVACT(R1) 7SET DRIVE IDLE 
019463 012410 ATABIT(R1),SRCHWT ;DOING A SEARCH OPERATION FOR 
AN 1/0 COMMAND? 


2s ;BRANCH IF YES 

020722 PC ,POPQUE sREMOVE REQUEST FROM QUEUE 
200 00016 oe Ty 3 ERED SET ‘DONE'’ BIT 

012434 $ SAVEFG :BRANCH ‘TF 5» altaameas 


PC,SVRH11 YES--SAVE ALL_OF THE RH11/RP04/5/6 REG'S 
000016 : MOVB ATABIT(R1), RPAS(RG) CLEAR ATTENTION BIT 


T A REQUEST 

SC CHECK FOR MORE DRIVES 

0165 1 : R1,RPCS2(R4) 7SELECT DRIVE 

016540 012326 MO RPDS1(R4) ,RPERRS- SAVE THE FOUR REGISTERS THAT 
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016546 
016554 


016562 


016740 


016744 


016437 
016437 


016437 
004037 


000014 
000040 


000042 
012724 


177777 


000010 
012462 
004000 


023420 


012366 


012366 
012724 


012346 


020700 
140000 
020044 
020604 
012376 
013604 
015666 


012412 
000001 


012440 
000002 
017036 


012330 
012332 


012334 


012440 


000016 


012440 


000016 


012413 


012440 
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MOV 
MOV 


2$: 

3$: 

7RP04/5/6 TIMER 
; CALL 


RPER1(R4) ,RPERRS+2 WILL TELL US SOMETHING 
RPER2(R4) ,RPERRS+4 


ay ee -RPERRS+6 

RO,DRVINT INIT. THE STATE OF THE DRIVE 
1$ STAKE ERROR EXIT 

PC :RETURN 

(SP)+ :POP PC OFF OF THE STACK 

Sc8 PROCESS THE PARITY ERROR 

R1 SETUP _TO ADDRESS WORDS 

ate - TIMER(R1) : STOP THE TIMER 


R1,RPCS2(R4) SELECT THE DRIVE 

ATABIT(R1) ,RPAS(R4) CLEAR THE Pa \encale BIT 
#B1T11, (R45 ;DRIVE AVAILABLE 

i BR IF AVAILABLE 


#10000.,TIMER(R1) ;START 10 SEC TIMER AGAIN 
R1 

3$ zEXIT 

—— ae THE DRIVE ? 


DPINT(R1) CLEAR THE INIT INDICATOR 
RO,DRVINT 7GO INIT THE DRIVE 

DUMMY PARITY ERROR RETURN 
DRVSTA(R1) DRIVE ONLINE ? 
2$ 7BR IF YES == START ORDER 
os OR IF — FOR THE DRIVE 


= 
PC,G T DPB ADDRESS 
wits BIT14, 16¢k3) : INFORM USER THAT DRIVE OFFLINE 
PC,SVRH11 ;SAVE THE REGISTERS 
PC; EMPTYQ ;EMPTY THE REQUEST QUEUE 


3$ 

DPRQS(R1) CLEAR THE PORT REQUEST INDICATOR 
PC,OPT START THE PENDING REQUEST 

SC4 PROCESS OTHER DRIVES 

ROUT INE 


#TIME ,~(SP) sELASPED TIME IN MILLISECONDS ON THE STACK 
PC,RPTMR :CALL RPO4/5/6 TIME ROUTINE 


ACTDRV CHECK "‘ACTDRV & ACTSTR’ 
4$ :1F NON ZERO EXIT 
#1,ACTSTR 7SET "‘'ACTSTR'! 
7SAVE RO = RS 

ot START WITH DRIVE 0 
TIMER(R3) 71S THE TIMER RUNNING? 

$ BRANCH IF NO 

66S?) . TIMER CRS) sous THE INTERVAL 


BR IF NO SOFTWARE TIMEOUT 
PC,STO CALL SOFTWARE TIMEOUT ROUTINE 


SEQ 0076 
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000405 BR he :GO TO THE EXIT 
005201 2$: INC MOVE TO NEXT DRIVE 
005723 TST tR3)s 

022701 000010 CMP og. At OUT OF DRIVES? 
tee BRANCH IF NO 


BGT 
104413 3$: RESREG sRESTORE RO = RS 
105037 012413 CLRB ACTSTR :ZERO ACTIVE SOFTWARE TIMEOUT ROUTINE FLAG 
012616 4$: MOV (SP)+, (SP) SADJUST THE STACK 
000207 RTS PC :RETURN 


SOFTWARE TIMEOUT ROUTINE 
:NOTE: THIS ROUTINE MUST BE ENTERED AT PRIORITY 6 
OR GREATER 


:CALL: 
#DRVNUM,R1 :DRIVE NUMBER 
PC,STO + CALL 


010146 : R1,~(SP) zSAVE R1 
R3,~(SP) zSAVE R3 
aieote RPADR ,R4 GET ADDRESS OF *RPCS1"’ 
000010 R1,RPCS2(R4) SELECT THE DRIVE 
017472 RO,RD.RP ZREAD ‘DRIVE STATUS REG’ 


(SP)+ z1S ‘DRY''=1? 
BMI STO2 BR IF YES 
012366 H Zs te i, Ly INTIALIZE THE DRIVE ? 


BR I 
012376 DPRQS(R1) ZOUTSTANDING PORT REQUEST FOR THE DRIVE ? 
BNE 2 3BR YES 


STO 
012406 TRNSWT ,R2 ‘PICKUP TRANSFER WAIT QUEUE 
012460 R1,DTUW ; TRANSFER UNDERWAY ON THIS DRIVE? 
1$° 3 CH “. es 
020700 PC,GETREQ GET DPB ADDRESS 
101000 : #eiT1>!B1T09, 16(R2) ty V8 THE ERROR FLAGS 
020044 - PC,SVRH11 SAVE R HI17RPOG/576_ REGISTERS 
000040 meiT05, RPCS2(R4) a INIT THE MASS BUS 
012336 DRVA DRIVE IS IDLE 
012414 ULDFLG(RI) CLEAR THE UNLOAD FLAG 
R1 :START WITH DRIVE 0 


R3 
012724 : RO,DRVINT Fn AF THIS DRIVE 
BR TO5 ARITY ERROR RETURN 
012336 PAVAC TGS ‘DRIVE ee BEFORE THE INIT.? 


$ :YES~ 
012406 TRNSWT ,R2 GET TRANSFER WAIT QUEUE 
012460 DTUW,R1 WAS THERE 1/0 ON THIS DRIVE? 
3$ de eg 
020700 PC,GETR THE DPB Ais FROM QUEUE 
100400 000016 : #3iT15 BI T08, 16h2) 3 INFORM USER OF INIT 
012336 DRVACT(R1) SET DRIVE ACTIVE TO IDLE 
105061 012414 : ULDFLG(R1) ;NO 
012763 177777 012440 #-1,TIMER(R3) ;STOP THE TIMER 
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017232 
01 


017470 


000010 
177777 
012406 
020526 
000016 
012462 
012366 
012376 
012460 
017472 


012366 
012376 
177777 
015014 


140000 


012460 


012440 


012440 


000016 
012440 


000016 
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STO2: 


STO3: 


1$: 


STOS: 
STO6: 


ST07: 


STO8: 
STO9: 


14:10 PAGE 

TST (R3)+ 
INC R1 
CMP #8.,R1 
BGT 2$ 
MOV #=-1,DTUW 
CLR TRNSWT 
JSR PC, CLRQUE 
BR STO9 
MOVB _— RPAS(R4) ,R5 
BITB  ATABIT(R1),RS 
BNE STO3 
TSTB —sODPIINT(R1) 
BNE T 
TSTB — DPRQS(R1) 
BNE STO7 
CMP R1,DTUW 
BNE ST01 
JSR RO,RD.RP 
RPCS1 
STO5 
TSTB —s- (SP) + 

L STO} 
STB DPINT(R1) 
TSTB DPRQS(R1) 
BEQ STO9 
MOV #-1, TIMER(R3) 
BR STO9 
JSR PC,C1I8 
BR STO9 
CLRB —sCDPIINT(R1) 
CLRB = DRVSTA(R1) 
MOV #~-1, TIMER(R3) 
JSR PC,GETREQ 
TST Re 
BEQ STO9 
Bis #81T15!B1114, 16088) 
MOV #~-1, TIMER(R3) 
CLRB DPRQS(R R1) 
JSR PC,GETREQ 
TST R2 
BEQ STO9 
MOV #81115 18172, 16(R2) 
JSR PC,EMPTYQ 
JSR PC; SVRH11 
MOV (SP)+, R3 
MOV (SP) +-R1 
RTS PC 


UPDATE THE INDEX 
: INCREMENT THE DRIVE NUMBER 
:LAST + Ng BEEN CHECKED? 


ars 
NO DATA TRANSFERS UNDERWAY 
CLEAR TRANSFER WAIT QUEUE 
SCLEAR ALL REQUEST QUEUES 


sEXIT 
READ ATTENTION REG 
eS mad ih hy FOR THIS DRIVE UP ? 


TRYING TO INTIALIZE THE DRIVE ? 
;BR_IF YES = DRIVE NOT ONLI 

OUTSTANDING PORT REQUEST FOR THE DRIVE ? 
;BR_IF YES = NO RESPONSE TO REQUEST 

‘BR IFNO UNDERWAY FOR THIS DRIVE 


:YES==CHECK 'RDY"' 


:BR IF ‘RDY'=0 
‘INITIALIZING THE DRIVE ? 
;BR IF INIT PENDING 


cOR IF eo PENDING ? 
hs THE TIMER 
3GO HANDLE THE PARITY ERROR 


CLEAR THE pe aL Ie INDICATOR 
:SET war OF FL INE 

STOP THE TIMER 
GET THE DPB ose 
:REQUEST IN QUEUE ? 


F NOT 
“2aNF ORM THE USER DRIVE NOT AVAILABLE 


‘STOP THE TIMER 

CLEAR PORT REQUEST INDICATOR 
GET DPB ADDRESS 

see ENTRY FOR DRIVE ? 


“INFORM USER OF — REQUEST ERROR 
7CLEAR THE QUEUE FOR THE DRIVE 

SAVE THE REGISTERS 

RESTORE R3 

RESTORE R1 

RETURN 


ROUTINE TO READ A RH11/RP04/5/6 REGISTER 


CALL 


RO,RD.RP 


GO READ A REGISTER 
INDEX FROM BASE 
TERROR ADDRESS~=-PROCESS ERROR STARTING 


SEQ 0078 
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:AT THIS ADDRESS 
CONTENTS OF REG. IS ON THE STACK 


017472 013737 012472 017640 RD.RP: MCPEMX ,RD..RP2 MAX, RETRYS iro 
(SP) ,=(SP) SAVE RO FOR RETURN 
012474 017516 RPADR ,RD.ADR FORM THE DESIRED “es te 
017516 (RO) +,RD.ADR [USING THE BASE AND THE INDEX 
«RP1: a(PC)+,(PC)+ READ THE DESIRED REGISTER OF THE RPO4 
-ADR: . 0 zsADDRESS IS FORMED HERE 
RD.WRD: . 0 REG. CONTENTS PUT HERE 
017520 000002 RD.WRD,2(SP) RETURN IT TO THE USER 
012474 PUT THE ADDRESS ON THE STACK 
000010 :FORM THE ADDRESS eit RPCS2 
010000 WBIT12,a(SP)+ CHECK THE 'NED* 
RD.RP3 :BR IF DRIVE NON-EX! STENT 
172722 @RPADR , ~ (SP) sREAD RPCS1 
020000 #B1T13, (SP) :DID MCPE SET? 
1$ BRANCH IF YES 
(SP)+,(RO)+ sADJUST FOR RETURN 
RD.RP4 EXIT 


20764 d RO,ES.SAV SAVE THE ADDRESS IN 'SESCAPE' 
3 [REPORT 'MCPE'’ ERROR 
012460 DTUW [DATA TRANSFER UNDERWAY? 


2$ :NO=-BRANCH 
040000 #B1T14, (SP) 3NO=~" TRE’ '=1? 
2$ ;NO--BRANCH 
(SP) + YES--CLEAN OFF THE STACK AND 
hapy THE FATAL ERROR EXIT 


BR RD.RP3 
040000 : #B1T14, (SP) CLEAR ‘MCPE'’ BY SENDING A ‘I’* TO ‘‘TRE'' 
(SP) “POSITION BEFORE WRITING 
012474 017634 RPADR , 3$ FORM ADDRESS OF HIGH BYTE 


017634 

(SP)+,a(PC)+ :WRITE THE HIGH BYTE OF RPCS1 
0 sADDRESS STORAGE 

a EXCEEDED MAX. RETRYS 


-RP2: .WORD 
RD.RP1 ;BRANCH IF NO 
.RP3: (RO) ,RO sFATAL ERROR EXIT 


MOV (SP)+, (SP) 
017650 000200 RD.RP4: RTS RO 
ROUTINE TO WRITE A REGISTER 


3 CALL 
; us ny oy :DATA TO BE LOADED ON THE STACK 

: ;CALL THE ROUTINE TO LOAD(WRITE) THE REG. 
; E : INDEX OF THE REGISTER TO BE LOADED 

; ZADDRESS TO RETURN TO ON AN ERROR 

; sERROR FREE RETURN 


017652 012472 020026 WRT.RP: MCPEMX, rhe R2 ;MAX RETRYS ALLOWED 

017660 7 000002 017740 MO 2(SP) ,WRT .WD SAVE THE WORD TO WRITE 

017666 6 (SP) +, esp) sADJUST THE STACK 

017670 017742 wai WRT .AD :GET INDEX OF So TO BE WRITTEN 
017674 5 1$ SBRANCH IF NOT RPCS1 
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017676 122737 000150 017740 #150,WRT .WD ;1S_THE COMMAND FOR DATA TRANSFERS? 
1$ ‘ye S~-DON! T GET THE OLD Al6 & A117, & PSEL 
017472 RO,RD.RP :NO--=COMBINE A A168A17, & PSEL WITH 
THE COMMAND BEFORE SENDING ir TO” 
[THE RH11/RPO4 


177770 

017741 oWRT. 

012474 017742 $ FORM THE ADDRESS A ies DISK REG. 
WR : eee 7a(PC)+ :WORD THE DESIRED R 


: 0 
012474 V RPADR,=(SP) 
000010 ARPCS2, (SP) iF OF RPCS2 
010000 wBltie, a(SP)+ D’ BIT 
DRIVE NON-EXISTENT 


IF 
017472 J RO. RD. RP “CHECK FOR PARITY ERROR ON WRITE 


000010 a (SP)+ 
WRT. sBRANCH IF *PAR=0"' 


177776 OB ROD 1$ PICKUP THE INDEX 
017472 RO.RD.RP READ THE REG. 
D Oo sREG. INDEX 
RETURN TO THIS ADDRESS ON ERROR 

02076/ RO.ES.SAV + SAVE THE ADDRESS IN "SESCAPE* 

4 ;REPORT THE PARITY ON WRITE ERROR 

(PC)+ ;DECREMENT THE ERROR COUNT 

3 RETRY COUNTER 

WRT.R1 : TRY AGAIN IF NOT FINISHED 

(SP) + :CLEAN OFF THE STACK 

hn af ag an THE ‘PARITY ON WRITE’ ERROR EXIT 

+ at ADJUST FOR ERROR FREE EXIT 


ROUTINE TO SAVE THE RH11/RP04/5/6 REGISTERS AS PER DPB+14 


' CALL 
: MOV #DPBNUM, RZ :DPB POINTER TO R2 
: JSR PC, SVRH11 SSAVE THE DRIVES REG'S 


SVRH11: SAVREG 7SAVE RO - RS 
TST R2 ;QUEUE ENTRY FOR THE DRIVE ? 
4 7BR IF NONE 
012474 RPADR ,R4 
000010 (R2) ,RPCS2(R4) ;SELECT DRIVE 
000014 14(R2) ,R3 GET THE ERROR TASLE POINTER 
6$ TEXIT IF NO ADDRESS 
OUNTER & 


020124 3$ 3¢ POINTER 
020124 000022 1$: 4 3$ ,4ARPDB :REACHED ad BUFFER REGISTER ? 


:BR IF 
000200 000010 Se lTO? APCSECRS) oir MOET ? 


SET 
(R3)+ -STORE RPDB AS ZEROES 
020116 000405 BR 4$ > CONT INUE 
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020120 017472 2$: RO,RD.RP sREAD THE SELECTED REGISTER 
3$: WOR 0 ee 


7 ERR ADDRESS 
(SP)+, (R3)+ :STORE THE REGISTER CONTENTS 
020124 000046 4$: + pat REACHED. THE END ? 


000002 020124 #2,3$ : INCREMENT THE REGISTER INDEX 
BR 1$ ;CONTINUE READING THE REGISTERS 
014714 5$: S PC,CI7 PROCESS THE UNCORRECTABLE PARITY ERROR 
6$: RESTORE RO = R5 
TS PC 7 RETURN 


a TO SET THE INTERRUPT WITHOUT GETTING A ‘‘TRE*’ 


#DRVNUM,R1 ;DRIVE NUMBER TO R1 
PC,SET.IE $stT “I 


020162 IE: R4,~(SP) SAVE R 
020164 012474 MO RPADR ,R4& PICKUP oth a OF RPCS1 
000010 R1,RPCS2(R4) sSELECT DRIVE 
MOV (R4) ,=(SP) READ RP Cs1 
040000 wiria, . (SP) 7SET THE ‘'TRE’’ a" OF THE WORD READ 


;ADJUST FOR DAT 
000100 #BIT06, ( 7; 


010000 #BITI2, RPCS2(R4)° 31S *NED'=1? 
BN 1 YES--CLEAR ‘“‘TRE'’ 
(SP) + CLEAN OFF THE STACK 


2$ 
000001 1$: (SP)+,1(R4) ;CLEAR *'TRE*’ 
2$: (SP)+,R RESTORE R4 
PC RETURN TO CALLER 


;QUEUE COUNT 
QCNT: 


elolelelelele) 
NOUSWN-O 


020243 


020244 QINPT: 
034 


NOU S*WN HO 


020260 
020262 
QUEUE OUTPUT POINTERS 
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020326 QOUTPT: .WORD 
020346 WORD 


:DRIVE 


DRIVE 0 START ADDRESS 
DRIVE OQ STOP aT b # DRIVE 1 START ADDRESS 
STOP DRIVE 1--STAR IVE 2 
STOP DRIVE Do=S TART DRIVE 3 
STOP DRIVE 3=-START DRIVE 4 
STOP DRIVE 4==START DRIVE 5 
:STOP DRIVE 5=-START DRIVE 6 

0205 STOP DRIVE 6=-START DRIVE 7 

020324 e :STOP DRIVE 7 


Soo NOAUEWN HO 


020326 
020346 


10 
10 
10 
10 
10 
10 
10 
10 


000010 
020526 
sROUTINE TO CLEAR ALL OF THE REQUEST QUEUES 


= CALL 
: JSR PC, CLRQUE 


020526 104412 CLRQUE: SAVREG SAVE RO = R5 
0205 MOV #QCNT ,R2 :ZERO THE QUEUE COUNTS 
(R2)+ ;DRIVES 1 


000010 8. ,.R3 ; ARTING 
020304 #QSTART ,R1 ZADDRESS OF THE QUEUE INTO 
: at ar THE QUEUE INPUT POINTER 


1$ 
000010 #8. ,R3 sMOVE THE STARTING ADDRESS 
020304 #QSTART ,R1 :OF THE QUEUE INTO THE 
ae ;QUEUE OUTPUT POINTER 
2$ 
PC 


sEMPTY THE QUEUE SPECIFIED BY R1 


RESTORE RO - R5 
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020234 


020244 020264 


122761 000010 
020234 
020244 
000002 020244 
020244 020306 


020304 020244 


020234 


020234 


020264 
020720 
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CALL 
: MOV 
; JSR 


EMPTYQ: CLRB 
ASL 


DRVNUM,R1 
PC,EMPTYQ 


aia CLEAR NUMBER OF ITEMS IN QUEUE 

QINPT(R1) ,QOUTPT(R1) ;SET OUTPUT QUEUE POINTER=INPUT POINTER 
Pc 

sROUTINE TO PUT A REQUEST IN QUEUE 

CALL 


DRIVE NUMBER TO R1 


; MOV ADRVNUM ,R1 :DRIVE NUMBER 

: MOV ADPB,R2 ADDRESS OF PARAMETER BLOCK 

: JSR RO, DRVQUE :GO PUT REQUEST IN QUEUE 

: RETURN1 ;RETURN HERE IF QUEUE IS FULL 

; RETURN2 RETURN HERE IF REQUEST IS IN QUEUE 


CMPB 21S QUEUE FULL? 

BEQ BR IF YES-TAKE RETURN1 

: INCREMENT QUEUE COUNT 
R2,@QINPT(R1) ;PUT tf REQUEST IN QUEUE 
#2,QINPT(R1) UPDATE THE QUEUE POINTER 
QINPT(R1),QSTOP(R1) ; TIME yA RESET THE POINTER 
1$ ;BRANCH IF 

ect eh ptweattaeni C YES~-RESET POINTER 


1$: 
(RO) + ; TAKE RETURN 2 
2$: S RO ;RETURN TO USER 


;ROUTINE TO GET THE 'DPB’’ ADDRESS OF NEXT REQUEST IN QUEUE 
= CALL 


DRVQUE : #10, QCNT(R1) 


QCNT(R1) 
R1 


; MOV #DRVNUM,R1 DRIVE NUMBER TO R1 

: JSR PC,GEIREu G0 GET THE REQUEST 

: TURN ;R2="DPB'" ADDRESS OF THE REQUEST 
: ;R2=0 IF NO REQUEST IN QUEUE 


GETREQ: .e 


R2 
QCNT(R1) 
2$ 


ZIS THERE ANY REQUEST IN QUEUE? 

2$ ‘NO=--BRANCH 

V BQOUTPT(R1) .R2 :PICKUP ''DPB'’ POINTER FOR THIS DRIVE 
2s: RTS PC :RETURN TO USER 

;ROUTINE TO 'POP'' THE REQUEST FROM QUEUE 

CALL 

: MOV 


: JSR 
: RET URN 


1$: 


DRIVE NUMBER TO R1 
:CALL_TO REMOVE REQUEST 
sR2=ADDRESS OF DPB REMOVED 


ADRVNUM ,R1 
PC ,POPQUE 


SEQ 0083 
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020722 ; 020234 POPQUE : ag daa ;DECREMENT QUEUE COUNT 
020264 @QOUTPT(R1),R2 ;GET THE ‘DPB'' POINTER 
000002 020264 #2,QOUTPT(R1) UPDATE THE QUEUE POINTER 
020264 020306 CMP QOUTPT(R1),QSTOP(R1) ;TIME TO RESET THE POINTER? 
BNE 1$ ;NO=-BRANCH TO EXIT 
020304 020264 1s re oe 7 YES--RESET THE POINTER 


0207 
020762 PC RETURN TO USER 


ROUTINE TO SAVE THE CONTENTS OF ‘SESCAPE' WHEN THE DRIVER 
;REPORTS AN ERROR DIRECTLY. 


CALL 


RO.ES.SAV 
N 73 THE ERROR CALL 
THE RETURN IS PAST THE ERROR CALL 
012037 021000 ° : (RO) +,1$ GET THE ERROR CAL 
001160 MO SESCAPE,~<SP)  ;SAVE THE ADDRESS IN *SESCAPE' 
001160 $SESCAPE >CLEAR THE ESCAPE RETURN 
: 0 ;THE ERROR CALL IS MOVED HERE 
001160 MO Sl ae iacertte : RESTORE THE ESCAPE ADDRESS 


_ 


SD RRR RRR KEKE RRR IRE REE EE 


-SBTTL TELETYPE MESSAGES 
040527 047122 USE: eASCIZ <CR><LF>/WARNING: PROGRAMMABLE DRIVES MAY BE USED/<CR><LF> 


1040 
042105 
043517 : .ASCIZ / PROGRAMMABLE-DRIVE WILL NOT BE USED/ 


042523 

044514 UNTOFF: .ASCIZ / OFFLINE/ 

044514 UNTON: .ASCIZ / ONLINE/ 

020124 NOTRP: .ASCIZ @ NOT AN RPO4/5/6a 

030120 

000066 

050040 NOTPRS: .ASCIZ / NOT PRESENT/ 
042523 052116 


047125 040523 NOTSAF: .ASCIZ / UNSAFE/ 
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021216 
/RPO4/ 
/RPOS/ 


/RP06/ 
/UNIT STATUS/<CR><LF><LF> 


<CR><LF>/DRIVE: / 


°  ¥ 
ENTADR: . ENTER ADDRESS LIMITS:/<CR><LF> 


MOFFLN: .ASCIZ / DRIVE OFFLINE/<CR><LF> 


6360 MDRNP: .ASCIZ / DRIVE NOT PRESENT/<CR><LF> 
052116 
053111 MER11: .ASCIZ / DRIVE NOT AVAILABLE/<CR><LF> 


: .ASCIZ @ DRIVE NOT AN RPO04/5/6a<CR><LF> 


/ DRIVE UNSAFE/<CR><LF » 


/ SELECTED/ 
<CR><LF>/PROGRAM MODE (C OR F): / 


sASCIZ / FORMAT & VERIFY/ 


eASCIZ /CHECK ONLY/ 
: -ASCIZ /FORMAT & VERIFY/ 


MSIZE: .ASCIZ <CR><LF><LF>/OPERATE IN 22 SECTOR MODE (Y OR N) ? / 
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4525 021650 042523 052103 051 
4526 021656 04644 
021664 


2 
4 MSEC22: .ASCIZ /OPERATION WILL BE IN 22 SECTOR (16 BIT) MODE/<CR><LF> 
0 
536 
4537 Ape 117 042520 040522 MSEC20: .ASCIZ /OPERATION WILL BE IN 20 SECTOR (18 BIT) MODE/<CR><LF> 


0220 000012 
4545 022036 047111 040526 044514 BADENT: .ASCIZ /INVALID ENTRY/<CR><LF> 
4546 022044 020104 otal 051124 


4548 022056 Ah g: 044504 043516 MADRER: .ASCII /ENDING DSK ADRS MUST BE EQUAL TO OR GREATER/<CR><LF> 


4554 022122 051107 040505 042524 

022130 006522 12 
4556 022133 124 040510 pete eASCIZ /THAN STARTING ADRS/<CR><LF > 
4558 022146 043516 040440 051104 

006523 00001 

4560 022160 042523 042514 052103 MSELP: .ASCII /SELECT DATA PATTERN/<CR><LF> 
4561 022166 042040 052101 020101 
4562 022174 040520 052124 051105 

022202 16 012 
4564 022205 040 030050 020051 eASCII / (0) ZERO'S/<CR><LF> 
rio 855555 042532 047522 051447 
$300 OSss6s 024040 024461 047440 eASCII / (1) ONE*S/<CR><LF> 
4569 022236 024040 024462 053440 eASCIZ / (2) WORST CASE: / 
4571 022252 051501 035105 000040 
4573 022260 047527 051522 020124 MPATD: .ASCIZ /WORST CASE/ 
4574 022266 040503 042523 

015 00 052123 MSFOU: .ASCIZ <CR><LF><LF>/STARTING FORMAT ON DRIVE / 

4576 022300 051101 04 16 

022306 043040 0 
4578 022314 aoe iss 9 


4579 022322 044522 


0 
4580 022330 005015 0514 040524 MSCHK: .ASCIZ <CR><LF><LF>/STARTING CHECK ON DRIVE / 
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052122 020107 
4103 020113 
044522 


051117 Zs <CR><LF><LF>/FORMAT COMPLETE, / 
<CR><LF><LF>/CHECK COMPLETE, /” 


/TOTAL ERRORS DETECTED: / 


020072 
042523 ADDRIS: . /PRESENT ADDRESS IS: / 
042104 


044440 
035395 


CL RRR KEE RR KEK KEKE ERE REE RK ER EEK KKK 


-SBTTL ERROR MESSAGES 


DKK KERR RRR RK RK RRR KEKE KEKE REE KEK 


022512 4122 030461 4440 EMI: eASCIZ /RH11 INTERRUPT OCCURRED (RPAS=0)/ 


/UNEXPECTED ATTENTION OCCURRED/ 


051122 
051501 : . /MASSBUS PARITY ERROR (MCPE=1)/ 
050040 


046450 
024461 


041123 : ° /MASSBUS PARITY ERROR (PAR=1)/ 
051101 
051105 
050050 
0051 
1505 
3525 
3516 
0124 


00 
05 
04 
04 
02 


ADDRESS PLUG CHANGE BIT SET/ 
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022740 1 Seatse EM6: -ASCIZ /RH11 DIDN'T RESPOND TO ADDRESSING/ 
047117 

040440 

051523 

020105 e /DRIVE OF FLINE/ 

047111 


051511 t «@ /PERSISTENT DRIVE UNSAFE ERROR/ 
042040 


/UNCORRECTABLE MASSBUS PARITY ERROR/ 


SOFTWARE TIMEQUT/ 


/DRIVE UNSAFE ERROR/ 
051117 
051124 t « @CONTROLLER/DRIVE ERROR DURING WRITE@ 


@CONTROLLER/DRIVE ERROR DURING WRITE CHECK@ 


3516 
042524 
045503 


@RETRIES NOT SUCESSFUL = SECTOR NOT ACCEPTABLE@ 


@DATA ERROR DURING WRITE CHECK@ 
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023417 
24 


eASCIZ @CONTROLLER/DRIVE ERROR VERIFYING HEADERS@ 


@HEADER COMPARE ERROR VERIFYING HEADERS@ 


@CYLINDER FIELD IN HEADER IS NOT CORRECT@ 


@WRITE CHECK ERROR@ 
051122 
051101 053 Loy @HARDWARE ERROR DURING WRITE CHECK@ 


- EVEN 


FD RRR KEE KEK KKK EKER EKER EKER EKER EKER KKK 


051501 000 DH1: ~ASCIZ /RPAS/ 
4522 DH2: eASCIZ /DRIVE RPDS1 RPER1 RPER2 RPER3  RPAS/ 


020105 ; eASCIZ /DRIVE REG ADR DATA/ 
020107 
042040 


020105 : -ASCIZ /DRIVE REG ADR GOOD BAD/ 
020107 
020040 
020104 
042101 


024043 042101 DHé6: -ASCIZ /RH ADDRESS/ 
024050 000123 





CZRJBDO, RPO4/5/6 FMTR 
CZRJBD.P11 


024056 
024064 


024550 


28-MAR-79 11: 


1505 
050122 


041527 
050122 


24-MAY-79 


ERROR MESSAGES 


DH10: 


eASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


/DRIVE 


/RPEC1 


/DRIVE 


/DRIVE 


M 
14:10 PAGE 92 


ERR PC RPCS1  RPCS2 


RPEC2 RPWC RPBA 


RPMR RPDT RPSN 


ERR PC CYLINDER TRACK 


ERR PC CYLINDER TRACK 


RPCS2 


RPDS1 ~=RPER1 


RPBA RPDA RPAS 


RPDS1 RPER1 RPER2 


RPDA RPAS 


RPOF RPCA 


SECTOR/ 


SECTOR/ 


RPER2 


RPERS RPEC1 


RPDB RPMR 


RPER3/ 


RPEC2/ 


RPDT/ 
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024556 020040 020040 050122 
0245 04 020040 020040 
051501 
050122 
020040 
020040 
051115 
050122 
931368 :  .ASCIZ RPOF RPCA RPCC/ 
7520 


ASCII EXPT 'D/<CR><LF> 


-ASCIZ /DRIVE ERR PC CYLNDR ACTUAL HEADER/ 


ASCII MEMORY DISK/<CR><LF> 


/DRIVE ERR PC CYLNDR TRACK SECTOR DATA DATA/ 


025140 
025146 ATTN 
DDRIVE ,RPERRS ,RPERRS+2 ,RPERRS+4 ,RPERRS+6,ATIN 


: ° DDRIVE ,RD.ADR,RD.WRD 
017740 : . DDRIVE ,WRT.AD,WRT.WD,RD.WRD 


$RPADR 
DRIVE ,SERRPC,RP.REG,RP.REG+10,RP.REG+12,RP.REG+14 ,RP.REG+40,RP.REG+42 


001306 
001322 
025224 001310 ° RP.REG+44 ,RP.REG*46,RP.REG+2,RP.REG+4 ,RP.REG+6,RP.REG*16,RP.REG*20 
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025232 001324 


a3 -WORD RP.REG+22,RP.REG+24,RP.REG+26 ,RP.REG+30,RP.REG+32,RP.REG* 34,RP.REG+ 36 


001270 i. DRIVE ,SERRPC ,DS.CYL,DS.TRK,SAVSEC 
001270 ee DRIVE ,SERRPC ,DS.CYL,DS.TRK,SAVSEC 


ool eee RP.REG,RP.REG*+10,RP.REG+12,RP.REG*14,RP.REG+40,RP.REG+42,RP.REG*44 ,RP.RE 


Ol ete . RP.REG+2,RP.REG+4 ,RP.REG*+6,RP.REG+16,RP.REG+20,RP.REG+22,RP.REG+24,RP.RE 


001342 . RP.REG+30,RP.REG+32,RP.REG+34 ,RP.REG+36 


025574 : ‘ DRIVE ,SERRPC ,BUFP,RBUF ,RBUF +2 ,RBUF +4 ,RBUF +6 
025570 


A thy : . DRIVE ,SERRPC .DS.CYiL,DS.TRK,SAVSEC , $GDDAT ,RP.REG+22 


Be ees . RP.REG,RP.REG+10,RP.REG+12,RP.REG+14,RP.REG+40,RP.REG+42,RP.REG+44,RP.RE 


ool eee . RP.REG+2,RP.REG+4 ,RP.REG+6,RP.REG+16,RP.REG+20,RP.REG+22 ,RP.REG+24 ,RP.RE 


88 8S S8S8S888S888 

> — wae ee ed ee eed od wd ed 
WWANWWPO PO 

WHR ee 
SOfAMSAOMWA 


WwW he WU WW 
— 
No Ro 


ab 6a 


001342 ° RP.REG+30,RP.REG+32,RP.REG+34,RP.REG+36 
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025540 DF23: .WORD 
000 -BYTE 

DF24:  .WORD 

034 -BYTE 


- WORD 
000 -BYTE 
- WORD 
000 obs 


0255 - WOR 
025562 004 000 -BYTE 


Om 


CL ARERR EREREEEERERREEEERRERERERERREREEEE EERE EEE 


;BUFFER STARTS HERE 


FF EAR EEKEKEEEEEKEEEEEREREREKRREEEEEEREREEREHREREREEREREEEA EEE 


000000 RBUF: .WORD 0,0,0,0 BUFFER FOR HEADER CHECK 


025564 
025572 
025574 BUFP: FORMAT AND CHECK BUFFER STARTS HERE 


025574 055012 026532 TITLE: .ASCII <CR><LF><LF>/22-CZRJB-D/<CR><LF> 
sae 026502 


012 
Sapnee -ASCJZ @RP04/5/6 FORMATTER PROGRAM@<CR><LF ><LF > 
052101 


LOADRV: .ASCII <CR><LF>/TO ‘FORMAT’ OR ‘CHECK’ DRIVE 0, REPLACE THE ‘XxDP'/<CR><LF> 


a asd a ot at st st st me at Ht HN LNLNNNNNNMNNNYN A 


/PACK ON DRIVE 0 WITH ANOTHER PACK, CLEAR MEMORY LOCATION 40,/<CR><LF> 


eASCIZ /AND RESTART THE PROGRAM/<CR><LF > 
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026064 005015 000 


-SBTTL_ BUSADR = GET BUS ADDRESS AND VECTOR ADDRESS FOR RH11 
THIS ROUTINE IS USED TO INSURE THE BUS ADDRESS 

OF THE RH11 IS SETUP FOR THE PROPER ADDRESS. 

SAEQuInED READ THE ADDRESS FROM THE TTY IF 

:NOTE THIS ROUTINE DESTROYS RO=R4 


JSR PC ,BUSADR 
RETURN 


«WORD 177700 
WORD 776 


CHGADR ; INPUT FROM TTY REQUESTED? 
7$ ;NO--BRANCH 

CHGADR ;YES=-CLEAR THE REQUEST FLAG 
#$RPADR ,RO FIRST. ADDRESS 


-MRPCS1 
(RO) +,=(SP) [PRESENT RPCS1 ADDRESS 
YPE IT 


021305 -LINSP z2 SPACES 
GET THE ENTRY 
MOV (SP)+,R1 ADDRESS OF ASCII TEXT 

026070 026074 :- HIAD,LIMIT THIS IS THE ADDRSS HIGH LIMIT 

026340 R5,CK.NUM CHECK THE ER 
CARRIAGE RETURN ONLY ENTERED 
;PERIOD ONLY ENTERED 
ILLEGAL _INPUT 


; TERMINATED be A CARRIAGE RETURN 
S TERMINATED WITH A ' 
4 [TERMINATED WITH A ‘’."' 
177776 : MOV R2, cae * SAVE NEW RPCS1 
026327 : -MRHVE 3‘ RHVEC=" 
001174 MO #SRPVEC, RO FIRST VECTOR 
(RO)+,~(SP) :PRESENT RH11 VECTOR ADDRESS ON THE STACK 
021305 -LINSP 72 SPACES 
READ THE ENT 
Vv (SP)+,R1 :ASCII TEXT ADDRESS 
026072 026074 HIVEC. SLIMIT a 
026340 4s R5,CK.NUM 


026316 


: INPUT 
; TERMINATED pe Be r CARRIAGE RETURN 
: TERMINATED WITH 
: TERMINATED WITH A — 
INPUT 


177776 : R2,~-2(RO) 
000004 7$: ‘SAVE me ERROR VECTOR 

026304 000004 >SETUP FOR TRAP 

005777 152710 @$RPADR :CHECK FOR RH11 
026262 010137 000004 R1,ERRVEC RESTORE ERROR VECTOR 





E 
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001172 ASRPADR ,RO eg ADDRESS OF NEW PARAMETERS 
012474 FIRST ADDRESS OF WHERE TO PUT THEM 
BUS ADDRESS 
(RO)+,(R1)+ VECTOR ADDRESS 
PC ; RETURN 


000004 : R1,ERRVEC RESTORE ERROR VECTOR 
(SP)+, (SP) + 7 CLEAN OFF . haa 
6 REPORT THE ERR 
026314 BR 1$ ;ASK FOR BUS ADDRESS 


026316 geet $¢ iat, 020061 MRPCS1: .ASCIZ @RPCS1 
122 053110 041505 MRHVEC: .ASCIZ @RHVEC 
036440 000040 


-SBTTL_ CK.NUM = CHECK NUMBER (OCTAL) 
;THIS ROUTINE CHECKS AN ASCIZ STRING FOR LEGAL CHARACTERS 
AND FORMS AN OCTAL NUMBER IN R2 


sADDRESS OF ASCIZ STRING 
;MAX SIZE OF INPUT NUMBER 


:GO FORM THE 

:*'CR'’ ONLY ENTERED == R2 = 

:*PERIOD'’ ONLY ENTERED -- R2 = 0 

7 ILLEGAL oe asa IN THE tana STRING 
CR ENTERED =~ R2 = NUMBER 

*"COMMA’* == PR? = NUMBER 

PERIOD" -- R2 = NUMBER 


R4,~(SP) + SAVE R4 
R3,-(SP) 

R2,~(SP) 

R4 

R3 


Re 
R5,CK.CHR 


LLE 
SABRI AGE RETURN 


‘DIGIT 0-7 

:DIGIT 8-9 

: INCREMENT RETURN PAST ‘'CR'* AND 'PERIOD'’ ONLY RETURNS 
ZFOR THE OCTAL NUMBER IN R3 

:DON'T LET IT GET TO BIG 


R2,R3 

R5,CK.CHR CHECK ONE CHARACTER 
ILLEGAL CHARACTER 
CARRIAGE RE TURN 


Sheed 0-7 





F 
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DIGIT 8-9 
(R1) :DOES A ‘‘CR'’ FOLLOW THE ‘PERIOD’ 
$ IF NOT 


8 <BR 

(R4)+ ; INCREMENT THE RETURN 

(R4)+ : INCREMENT THE RETURN INDEX 

: (R4)+ INCREMENT THE RETURN INDEX 
026074 LIMIT,R3 ; INPUT VALUE TOO LARGE ? 

8$ :BR IF IT IS 
;BR IF NOT 
: INCREMENT THE RETURN ADDRESS 
; INCREMENT THE RETURN ADDRESS 


;CLEAN OFF _THE STACK 
:RE STORE R3 
RESTORE R4 

GET RETURN ADDRESS 
; RETURN 
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CZRJBD.P11 


28-MAR- 


G 
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3457" 3770*  3779« 
4027* 


3574 3933 3952 3960 
4851 


1526* 


1525* 


3978 


4086 


3694 


4267 
3805 


3707 


3892 


3917 


3907 
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1080 
1093 


014714 
014742 


024154 
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024241 
0 


3379* 3416 3861 3987 4050 4088 


3839 4001* 4090 4101 
1518 1520 1903 4857 4868 4878 


3656*  3675* 3701*  3784* 3890 3921* 
4074* 


3477 3969 4065 


3265" 3266 3268* 3278s 3319" * 3368« 
3483  3610* 3842 3850 3915" 3922 


1412 1512 30574  3311* 3331*  3336* 


4868 4881 
4868 4881 


3553* 3676 3713* 3785« 
4156 


1213 1220 4857# 


025272 
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CZRJBD.P11 


DT23 025354 
DT24 OSetce 


DT$ 0251 
DT4 025172 
DT6 025202 
DVA = 004 
ECH = 000100 
ECI = 004 
EFLG 001304 
EMPTYQ 02 
EMTVEC= 

M1 022512 
EM10 300 


E 022553 
023361 
EM21 023417 
EM22 023470 
EM23 023537 
EM24 023607 
EM25 0236 
EM3 022611 
EM4 02264 
EMS 022704 
EM6 022740 
ENDCYL 001222 
ENDTRK 001226 


ENTADR 021310 
~ ol 005462 


= 040000 
ERRVEC= 000004 
ES.SAV 020764 
EXT1 = 000001 
EXxT10 = 000010 
EXT2 = 000002 
EXT20 = 000020 

XT4_ = 000004 
EXT40 = 000040 
Ae. = 000200 

= 000020 
FMTDPB 001356 
FMT22 = 010000 
F2 = 000004 
F3 = 000010 
F4 = 000020 


10084 


RD 
RES 
— OW 
te 


32 2 S| MNNNNIN —NNNNNN- = 


a ae ce ce ed cae a nd a ce aed a a ed ee ee ed eed ed 
COMM & NOW ONMUI0 = 


N&O WIC N 


9794 


24-MAY-79 


1639» 
3806 
13118 


1521* 
1472* 


1787 


1319* 
3876 


1704 
3929 
1334* 


1524* 
1538 


18604 


1330* 
4154 


1707* 
3999 


1527 
1584 


1988* 
4214 


14:10 PAGE 103 
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1714* 
4121 


1989* 
44314 


1721* 
43624 


1535 


1999* 


1724* 


1582 


2008* 


1748* 


1588 


5025 


1757* 


1803 


5026* 


5028* 


5034* 


SEQ 0100 


K 
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3846 3882 3943 3996 4057 4072 43984 
2989 2990 2991 2992 2994 2996 2999 3000 


1793 


4495 4499 4504 
4575 4580 4585 


1444* 1567 1643 1699 1733 1819 


45194 
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PAR1 
PAR2 


022260 
000400 


001430 
001443 


CROSS REFERENCE TABLE == USER SYMBOLS 
45734 


1641 1730 1905 


1511 1515 1517 1848 


1696 
34674 3801 3961 4002 


20494 
10634 
10654 


SEQ 0102 
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CZRJBD.P11 28-MAR- 


000200 
017516 
017472 
017514 

17640 


017520 


10674 


3254* 3283* 


4413* 


4998 


3737 
4245 


3291* 


5014 


3751 


3404 


3793 


3405* 


3816 


3458* 


3468 


SEQ 0103 


3517* 
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READ IN= poled 


3292 
1665* 


3411 
4234 
3933* 
3977* 


3964 


3965* 
3965 


2232 4857 4860 4863 


3 
1685* 
38144 
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CZRJBD.P11 
$C20 = 002000 
$c3 015662 
SC4 015666 
scs 015700 
SC6 016100 
SC6A 016210 
SC7 016336 
Sc8 016414 
SEARCH= 000131 
SEC20 001264 
SEEK = 105 
SEEKFG 012436 
SELDRV= 000145 
SETFMT= 000143 
SETHDR 006030 
SETPAT 004014 
SETTBL 005630 
SETVEC 2506 
SET.IE 020162 
SKI = 
SLASH 021271 
SOFSW 00121 
SRCHWT 012410 
STACK = 001100 
STCLK1 006246 
STCLK2 006316 
STCLK3 006322 
STKLMT= 177774 
STO 017036 
STO1 7066 
STO2 017264 
STO3 017334 
STOS 017360 
STO6 7366 
STO7 017424 
STO8 017454 
STO9 017464 
ST.CLK 006170 
SVRH11 020044 
001140 
SWREG 000176 
SwO = 000001 
SWwOO = 000001 
SwO1 = 000002 
SwO2 = 000004 
SwO3 = 000010 
Sw0O4 = 000020 
SwOS = 000040 
SWO6 = 000100 
SwO7 = 000200 
SwO8 = 000400 
SwO9 = 001000 
Swi = 2 
SW10 = 002000 
SW11 = 000 


24-MAY-79 


8 
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CROSS REFERENCE TABLE == USER SYMBOLS 


3874 


1889 


3878 


3918 
3902 


1628 
3499 


3926 


39284 
3911 


1951 


3721 


1738 
1779 


3940 3947 

3939 39414 
3823 42634 
1740 1742* 
1849 2019 

4119 41234 
3847 3898 

1355 1375 

2688* 

2656 


3962 


3973 


1747* 


4003 


1939* 


3959 3998 4059 4122 
1719 1758 1846 1889 


SEQ 0105 


42314 
2238 
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000040 839. 

012440 3700* 3787*  3880* 3924  3975%  3983* 4016 4018*  4076* 
025574 

000060 


3705* 3714* 3789 3790* 


3343 33924 
1591* 1593* 1595* 1598* 


1384 1 
012414 3 3429* 3674* 3706* 3932* 


000103 
= 040000 
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CZRJBD.P11 23 
UNTOFF 021132 1402 
UNTON 021143 1406 
UPDACY 006110 1807 
UPDATK 006140 1924 
UPE = 020000 69 
USE 021010 1345 
US1 = 000001 6804 
US2 = 000002 6814 
US4 = 000004 6824 
UWR = 000010 8744 
VUF_ = 000002 8734 
vu30 = 010000 8284 
VV = 000100 7254 
WAQ = 2 8834 
wC 001256 9934 
WCE = 04 6944 
WCF = 7434 
WCKD = 000151 9164 
WCKHD = 00015 91748 
WCTBL 001554 10994 
WCU = 1 8164 
WLE = 004000 7494 
WRL_ = 004000 7304 
WRTDAT= 000161 9184 
WRTHD = 000163 9194 
WRTRK 004120 16254 
WRTRK1 004174 16374 
WRTRK2 004236 16454 
WRT.AD 017742 4187* 
WRT.RP 017652 3350 
3623 
WRT.R1 017736 41984 
WRT.R2 020026 4184* 
WRT.R3 020034 4193 
WRT.R4 020040 4209 
WRT.RS 020042 4221 
WRT. 017740 4185* 
WRU = 8244 
WSU = 8184 
SAUTOB 001134 9484 
$8D 001122 9434 
SBDDAT 001126 9454 
S$BELL_ 001162 9624 
SCHARC 7736 2368* 
$SCKSWR 010720 26334 
SCMTAG 001100 9314 
(MS = 9614 
SCNTLC 011615 2588 
SCNTLG 011627 2654 
SCNTLU 011622 2679 
SCRLF 001167 
2324 
SDBLK 010404 2505 
$DB2D 011752 2842 
SDECVL 012132 2863 
005432 1832 


1 
19774 
44434 


24-MAY-79 


19664 


18434 


D 
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3546 3550 3558 
3868 3900 3937 


42204 


4854 


2797 
23994 


1578 1827 2040 
2777 2797 


3567 
41844 


2248 


3571 


2262 


3582 


2279 


3589 


2284 


3599 


2294 


SEQ 0107 


3613 


2311 
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010374 
00 


2262 4857 4866 4868 4878 4881 


2241* 2262 
1686* 1703* 1709* 1755* 1786*%  1796* 1892* 2257 2259 
4154 4435* 


4214 4423 4432 4433* 


2453* 24798 
1560 2262 2402 


1316 1352 2253 2261 


177777 
011656 
= 000200 
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POMIMONMNNNoNPor 
VANUNWU 

— 

a oO 


2736* 
2613* 


29934 


27964 


2695 


a 


531 
2552 
4327 


a 


- : 112 
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508 
2220 
2664 


2625* 


2635 


2994 


5344 
25564 
43284 


1828 
2262 


2651* 


29954 2996 29994 


5414 9304 
2557 25584 
43298 4330 


966 1646 
27964 2804 
47244 49754 
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CKCHR 1485 1548 2168 2182 5064 5079 
5017 


3872 


1657 
1788 


1654 


6544 
1673 


2992 2994 
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- ABS. 026502 


ERRORS DETECTED: 0 


DSKZ:CZRJBD.BIN, Ps: CZRJBD. LST/CRF/SOL/NL : TOC :MD:MC : CND/LI :ME=CZRJBD.SML,CZRJBD.011,CZRJBD.P11 
RUN-TIME: 48 65 4 SECONDS 


RUN-TIME RATIO: 252/118=2.1 
CORE USED: 47K (93 PAGES) 





